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A  technique  has  been  developed  for  characterizing  the  dynamic 
electrochemical  behavior  of  a  corroding  interface  utilizing  an  off-the- 
shelf  commercially  available  digital  signal  analyzer,  a  micro  computer 
and  a  conventional  potentiostat.  By  treating  the  corroding  electrode 
as  a  relaxed,  linear,  time-invariant  system,  it  may  be  modeled  as  an 
equivalent  network  of  resistors  and  capacitors.  The  assemblage  of 
equipment  was  successful  in  experimentally  determining  the  component 
values  in  a  three-element  electronic  network  simulating  a  simple 
electrochemical  interface.  A  white  noise  voltage  signal  was  applied  to 
the  network  while  simultaneously  monitoring  the  current  response.  Both 
time  domain  signals  were  converted  to  the  frequency  domain  via  the 
fast  Fourier  transform  (FFT)  and  manipulated  to  yield  the  network 
impedance. 


Graphical  analysis  of  impedance  plots  yielded  the  component  values. 
The  technique  was  then  applied  to  an  evaluation  of  the  corrosion  of 
430  stainless  steel  in  IN  sulfuric  acid.  The  method  was  successful 
in  determining  component  values  of  a  5-element  network  used  to  model 
the  electrochemical  interface  in  the  active,  passive,  and  transpassive 
regions  of  polarization  potential  and  at  the  corrosion  potential. 
These  findings  show  that  electrode  impedance  measurements  made  via 
digital  signal  analysis  are  sensitive  to  the  character  of  a  corroding 
interface.  This  method,  because  of  its  relatively  short  duration  of 
measurement,  and  negligible  permanent  effect  on  the  electrode  may 
become  an  effective  means  of  monitoring  corrosion  in  situ. 


CHAPTER  I 
INTRODUCTION 

What  probably  began  as  child-like  fascination  with  the  look  and 
feel  of  metallic  lumps  in  the  ashes  of  an  ancient  campf ire  has  been 
retained  by  man  throughout  the  entire  period  of  his  civilization. 
Indeed,  the  unique  properties  of  metals  have  rendered  them  the  most 
significant  class  of  materials  in  the  technological  advancement  of  man 
up  to  the  present  day.  Even  now,  as  significant  advances  are  made  in 
the  technology  of  glasses,  ceramics,  polymers,  and  sophisticated  com- 
posite materials,  metals  will  continue  to  be  exploited  for  their  unique 
properties . 

Accompanying  the  development  of  the  metallurgical  technology  to 
extract  and  refine  metals  came  the  realization  that  large  amounts  of 
energy  are  required  to  convert  the  ore  from  its  native  state  to  a  usable 
metallic  form.  A  more  startling  realization  was  that  the  metals  which 
were  won  from  their  ores  at  such  a  great  expense  of  energy  and  effort 
seemed  most  eager  to  return  to  their  native  state  and  did  so  whenever 
they  were  left  exposed  to  the  terrestrial  environment.  As  various  metals 
were  separated  and  characterized,  they  were  observed  to  possess  varying 
degrees  of  susceptibility  to  the  environmental  degradation  we  call 
corrosion.  Despite  whatever  other  unique  properties  a  metal  may 
possess,  its  ultimate  usefulness  and  application  is  very  strongly 
influenced  by  its  resistance  to  corrosion. 
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The  word  "corrosion",  although  sometimes  used  to  denote  the 
deterioration  of  any  substance  in  the  environment  of  its  use,  generally 
connotes  the  destruction  of  a  metal  in  the  presence  of  an  aqueous 
electrolyte  or  other  polar  solvent.  In  the  context  of  the  latter 
definition,  the  apparent  disappearance  of  the  metal  may  be  attributed 
to  an  electrochemical  reaction  of  the  form: 

Me  -*■  Me   +  ne 
There  are  few  metals  of  practical  importance  for  engineering  appli- 
cations which  are  thermodynamically  immune  to  this  anodic  reaction  in 
the  environment  of  their  intended  use.  Accepting  this  fact,  the  engineer 
is  faced  with  the  problem  of  determining  whether  the  rate  at  which  this 
reaction  takes  place  will  permit  the  functional  utilization  of  the 
device  for  its  design  lifetime.  In  some  cases,  if  the  corrosion  rate 
is  well  established  and  occurs  as  a  uniform  attack,  one  might  simply 
make  the  structure  thicker  than  required  by  strength  considerations  to 
allow  for  material  loss  by  corrosion.  Another  tack  is  to  select  a 
suitable  coating  which,  in  effect,  separates  the  metal  from  the  aggres- 
sive environment.  In  cases  where  failure  of  the  metal  component  would 
result  in  a  catastrophic  outcome,  the  solution  is  often  to  select  a 
more  expensive,  more  corrosion-resistant  material. 

The  aforementioned  design  options  are  logical  courses  of  action 
assuming  that  the  rate  of  the  corrosion  reaction  is  known  and  the 
reaction  occurs  uniformly  over  the  entire  surface  of  exposure.  Un- 
fortunately, the  vast  majority  of  corrosion  phenomena  are  not  so 
straightforward.  Some  metals,  subjected  to  certain  environmental 
conditions,  are  observed  to  deteriorate  very  rapidly  at  some  locations 
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while  appearing  immune  at  others.  Such  variations  in  local  behavior 
nay  be  attributed  to  local  variations  in  solution  concentrations  which 
are  related  to  cotponent  configuration,  previous  cleaning  or  chemical 
treatment  or  mechanical  damage  to  the  part.  The  local  variations  in 
corrosion  rate  might  also  be  due  to  inhomogeneities  in  the  metal  itself 
introduced  during  welding  or  heat  treatment;  or  result  from  plastic 
deformation  during  fabrication;  or  be  caused  by  local  states  of  stress 
as  the  part  performs  its  design  function.  These  observations  are 
particularly  disquieting  in  view  of  the  fact  that  the  local  corrosion 
rate  variations  may  span  many  orders  of  magniture — thus  rendering  an 
"average"  corrosion  rate  virtually  meaningless. 

Another  group  of  metals  protect  themselves  by  forming  a  coherent 
protective  film  of  corrosion  product  which  is  stable  in  the  aggressive 
environment.  Local  removal  of  the  film  results  in  its  immediate  reform- 
ation since  the  film  consists  of  the  corrosion  product.  But  even  such 
self -protecting  metals  are  susceptible  to  local  variations  in  behavior. 
Subjected  to  differing  solution  concentrations  or  inhomogeneities  in 
the  underlying  metal,  the  protective  film  may  allow  very  rapid  local 
corrosion  (pitting)  which  may  destroy  the  function  of  a  metal  component 
without  extensive  metal  loss. 

Faced  with  these  observations,  the  task  of  making  an  intelligent 
assessment  of  component  durability  is  formidable  to  say  the  least.  In 
the  attempt  to  address  this  task,  several  strategies  have  evolved.  The 
first  and  most  straightforward  approach  is  real-time  testing  of  the 
component  or  sample  coupon  in  the  actual  environment  of  intended  use. 
It  suffers  from  the  obvious  disadvantages  that  the  time  of  test  pre^ 
eludes  a  priori  assessment  of  component  durability  in  most  cases.  There 
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is  also  the  nagging  question  of  whether  the  test  environment  adequately 
represents  the  range  of  conditions  that  will  be  experienced  by  the 
actual  part.  A  second  approach  is  to  expose  the  component  to  a  more 
severe  environment  in  an  attempt  to  effect  an  accelerated  test.  Con- 
sidering the  non-linear  character  of  all  deterioration  phenomena,  this 
approach  cannot  predict  absolute  durability  of  a  part  but  may  be  useful 
in  comparing  alternative  materials  or  processing  techniques.  The  third 
approach  is  the  most  scientific  and  is  certainly  the  most  rigorous.  In 
this  method,  one  attempts  to  determine  experimentally  and  explain 
theoretically  the  electrochemical  deterioration  of  the  material  over 
the  entire  range  of  possible  local  conditions. 

Considerable  progress  has  been  made  in  understanding  the  mechanism 
of  corrosion  processes,  via  this  third  approach.  For  example,  in  many 
corrosion  reactions,  the  rate  of  consumption  of  electrons  in  a  number  of 
possible  cathodic  reactions  has  been  found  to  limit  the  rate  at  which 
the  anodic  charge  transfer  step  may  occur.  If  the  cathodic  reaction  is 
hydrogen  evolution,  the  cathodic  charge  transfer  step  may  be  limited  by 
the  rate  at  which  the  diatomic  hydrogen  molecules  are  formed.  Since  the 
ultimate  goal  of  corrosion  study  is  to  stop  or  at  least  inhibit  the  pro- 
duction of  metal  ions  from  solid  metal,  the  large  number  of  interdepen- 
dent reactions  offer,  in  principle,  a  wide  range  of  possible  points  of 
attacking  the  corrosion  process.  On  the  other  hand,  the  sheer  number 
of  possible  rate-determining  steps  also  severely  complicates  the 
unraveling  of  corrosion  mechanisms. 

In  the  absence  of  a  complete  understanding  of  the  corrosion 
mechanism  for  a  particular  metal  alloy  in  a  particular  environment, 
one  seeks  methods  of  characterizing  and  classifying  the  behavior  of 
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corroding  systems  on  a  quantitative  experimental  basis.  The 
determination  of  corrosion  rate  by  the  polarization  resistance  method 
represents  one  such  very  direct  method  of  characterizing  the  corroding 
interface.  Unfortunately,  the  rendition  of  a  corrosion  rate  by  this 
method  is  not  meaningful  in  metal  systems  subject  to  a  localized 
attack.  Such  systems  often  possess  passive  corrosion  product  films 
which  protect  the  metal  surface  from  the  environment  initially  and  then 
degrade  catastrcphically  in  small  areas.  In  these  cases,  one  seeks  a 
parameter  or  combination  of  parameters  which  reveals  the  susceptibility 
of  the  passive  film  to  failure.  Since  the  electrochemical  interface 
may  be  modeled  as  an  equivalent  electronic  network  consisting  of  resis- 
tive and  capacitive  impedance  terms,  a  method  which  quantifies  these 
terms  would  provide  a  more  complete  characterization  of  the  corroding 
interface. 

The  behavior  of  an  equivalent  circuit  which  contains  capacitive 
elements  is  a  function  of  the  frequency  of  the  applied  signal.  A 
complete  characterization  of  the  circuit  therefore  requires  a  scheme 
which  measures  the  circuit  response  to  a  sequence  of  single-frequency 
signal  applications.  An  alternate  measurement  scheme  is  to  apply  a 
multiple-frequency  signal  and  determine  the  system  transfer  function 
via  the  fast  Fourier  transform  (FFT)  algorithm.  Subsequent  graphical 
analysis  of  the  system  impedance  as  a  function  of  frequency  can  yield 
quantitative  values  of  electronic  components  in  an  assumed  network 
model.  Where  the  complexity  of  system  response  precludes  a  simple 
network  model,  the  plots  produce  a  characteristic  "fingerprint"  of  the 
corroding  interface. 


6 

The  data  collection  period  of  this  latter  measurement  scheme  is 
obviously  shorter  than  that  required  for  sequential  single-frequency 
measurements.  In  principle,  the  measurement  time  for  a  multi-frequency 
analysis  is  determined  by  the  period  of  the  lowest  frequency  to  be 
analyzed;  the  time  required  to  perform  the  FFT  being  considerably  less 
than  one  second.  In  practice,  the  data  precision  is  improved  by 
averaging  a  number  of  runs  which  lengthens  the  measurement  period. 
Furthermore,  analysis  over  several  frequency  ranges  provides  higher 
resolution  data  at  low  frequencies.  While  these  practical  considera- 
tions all  lengthen  the  period  of  measurements,  it  is  still  much  shorter 
(minutes  versus  hours)  than  single- frequency  sequential  collection  over 
the  same  range  of  frequencies.  It  is  thus  possible,  in  principle,  to 
completely  characterize  a  corroding  interface  at  reasonably  close 
intervals  of  time  observing  changes  in  network  parameters  which  may, 
among  other  things,  reflect  changes  in  the  susceptibility  of  passive 
films  to  localized  breakdown. 

Recognizing  that  a  simple  electronic  network  model  may  not 
adequately  describe  the  electrochemical  behavior  of  a  corroding  metal 
interface,  it  may  not  always  be  practical  to  attempt  to  quantify  and 
monitor  network  parameters.  In  such  cases,  one  could  propose  more 
elaborate  models  and  support  hypothetical  mechanisms  by  fitting  data 
to  these.  From  the  standpoint  of  corrosion  monitoring,  however,  one 
may  wish  to  simply  characterize  the  state  of  corrosion  in  an  empirical 
way.  Graphical  portrayal  of  data  in  a  particular  format  might  show  that 
certain  curve  forms  correlate  with  "acceptable"  corrosion  behavior,  for 
example. 
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The  ultimate  purpose  of  the  work  described  here  is  to  increase 
the  quality  and  quantity  of  information  which  can  be  obtained  from  a 
corroding  interface  in  a  given  period  of  time.  Since  the  chosen  tech- 
nique is  based  on  the  electrochemical  nature  of  the  interface,  it  can 
be  expected  to  provide  insight  into  electrochemical  reaction  mechanisms 
present  under  a  given  set  of  conditions.  Since  the  technique  employs 
alternating  current  perturbation  signals,  it  can  provide  information 
about  the  capacitive  as  well  as  resistive  nature  of  the  corroding 
interface.  Since  it  utilizes  state-of-the-art  digital  signal  analysis 
equipment,  it  is  able  to  interrogate  the  interface  in  a  shorter  period 
of  time  than  required  by  sequential  single- frequency  exposure  methods. 

Individual  features  of  this  technique  are  not  unique,  having  been 
investigated  by  Epelboin  (1-3) ,  Blanc  (4) ,  Creason  (5-8) ,  Smith  (9-10) , 
Lorenz  (11)  and  others  (12-14) .  However,  there  has  been  no  known  attempt 
to  synthesize  the  well-known  AC  electrochemical  methods  with  modern  digi- 
tal signal  analysis  technology  for  the  specific  purpose  of  investigating 
corroding  interfaces.  The  consequence  of  this  effort  provides  the 
technological  basis  for  advanced  automated  corrosion  monitoring  systems 
and  for  sophisticated  electrochemical  interrogation  schemes  for  basic 
corrosion  research. 

The  specific  objectives  of  the  work  described  herein  were  (1)  to 
assemble  an  in  situ  corrosion  monitoring  system  based  on  digital  signal 
analysis  using  off-the-shelf  commercially  available  electronic  equip- 
ment and  (2)  to  demonstrate  capabilities  and  limitations  of  such  a 
system  in  characterizing  both  quantitatively  and  empirically  the 
corrosion  of  430  stainless  steel  in  IN  sulfuric  acid  subjected  to 
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imposed  potentials  between  -0.5  and  +1.5  v  (SCE) .  The  remainder  of 
this  dissertation  outlines  the  theoretical  basis  for  impedance  modeling 
and  solutions  associated  with  system  assembly  and  generation  of  the 
interface  transfer  function,  and  demonstrates  system  capability  on 
simulated  and  real  corroding  electrodes. 


CHAPTER  II 
THEORETICAL  BASIS  FOR  IMPEDANCE  MODELING 

The  replacement  of  steel  destroyed  by  electrochemical  corrosion  in 
the  terrestrial  environment  constitutes  a  significant  percentage  of  the 
annual  production  of  steel  in  the  United  States.  But  the  rusting  of 
steel  is  only  one  of  a  large  number  of  metallic  deterioration  phenomena 
which  are  electrochemical  in  nature.  In  fact,  all  metals  are  subject 
to  electrochemical  deterioration  in  same  aqueous  solvents.  Even  the 
metals  which  form  protective  adherent  films  are  susceptible,  as  the  pro- 
tective nature  of  the  film  changes  with  environmental  conditions.  Inter- 
est in  corrosion  and  other  electrochemical  phenomena  has  led  to  intense 
study  of  the  interface  between  a  solid  surface  on  which  an  electrochemical 
reaction  is  taking  place  and  the  ionic  solution  which  contacts  it. 

Electrochemical  Interface  Models 
Double-Layer  Capacitance 

The  essential  feature  of  an  electrochemical  interface  is  the 

presence  of  an  enormous  electric  field  (^  10  V/cm)  acting  over  a  region 

o 
roughly  10  A  in  thickness  immediately  adjacent  to  the  solid  surface  (15) . 

The  arrangement  of  charges  and  oriented  dipoles  in  this  region  was  termed 

the  electrical  double-layer  by  Helmholtz  (15)  and  is  further  explained 

by  Bockris  (16).  They  describe  the  electrified  interface  as  consisting 

of  two  sheets  of  charge  of  opposite  sign — one  in  the  solid  electrode 

surface  and  the  other  in  solution.  This  led  to  the  treatment  of  the 

electrified  interface  as  a  parallel  plate  capacitor. 


10 

Electrocapillarity  data,  however,  do  not  entirely  support  the 
double- layer  model,  and  this  led  Gouy  (17)  and  Chapman  (18)  to  propose 
the  so-called  diffuse  double-layer  model  which  took  into  account  varia- 
tions in  the  capacitance  with  potential.  The  Gouy-Chapman  model 
asserted  that  the  charge  in  the  electrolyte  solution  was  scattered  in 
thermal  disarray  rather  than  being  ordered  in  plate-like  fashion 
immediately  adjacent  to  the  solid  surface.  Stern  (19)  synthesized  the 
Helmholtz  and  Gouy-Chapman  models  stating  that  some  of  the  charge  in  the 
electrolyte  is  organized  in  plate-like  fashion  and  some  is  in  thermal 
disarray.  The  precise  refinements  to  the  theory  of  the  electrified 
interface  do  not  take  away  the  general  conclusion  that  there  is  a 
capacitance  associated  with  the  interface. 
Faradaic  Impedance 

In  corrosion  processes  as  well  as  in  all  other  electrochemical 
phenomena,  electrons  are  transferred  between  the  solid  electrode  and 
ions  on  the  solution  side  of  the  interface.  This  is  the  mechanism 
by  which  metal  atoms  become  metal  ions  and  leave  the  metal  surface. 
According  to  Faraday's  Law,  the  rate  at  which  metal  atoms  become  metal 
ions  is  directly  proportional  to  the  rate  at  which  charge  is  transferred 
across  the  interface.  Since  the  rate  of  charge  transfer  is  defined  as 
current,  the  corrosion  rate,  is  directly  proportional  to  the  magnitude 
of  current  flow. 

The  fundamental  equation  relating  the  current  density  across  a 

metal-solution  interface  is  attributed  to  the  work  of  Butler  and 

Vollmer  and  is  given  by: 

i  =  i  {e(l-3)nF/RT  _e-6nF/RT} 
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This  equation  has  the  typical  form  of  an  Arrhenius  rate  expression  where 

i  is  a  concentration-dependent  term  called  the  exchange  current  density, 

F  is  the  Faradaic  constant,  R  is  the  gas  constant  and  6  is  a  symmetry 

factor.  Equation  (2.1)  shows  that  the  current  density  is  a  function  of 

temperature,  T,  and  the  polarization  pontential,  n. 

Butler  (20)  demonstrated  that  there  is  a  linear  relationship 

between  current  density  and  potential  at  small  values  of  polarization 

potential,  i.e., 

i  nF 
i  =  °  D 
1    RT  (2.2) 

For  6=0.5,  i  =  ImA/cm  and  T  =  25°,  it  can  be  shown  that  the  error 
in  making  the  linear  approximation  does  not  exceed  5%  if  the  polariza- 
tion potential  is  below  30  mv  (16) .  Obviously  other  values  of  the  given 
parameters  determine  other  ranges  of  linearity.  Using  Ohm's  Law,  the 
equivalent  electrical  impedance  to  current  flow  offered  by  the  charge 
transfer  reaction  is  thus  a  function  of  temperature  and  concentration 
and  may  be  modeled  as  a  resistor.  The  term  "charge  transfer  resistance" 
was  coined  by  Gerischer  and  Vetter  (21) . 

There  are  other  equivalent  electrical  impedances  in  the  corrosion 
process.  As  reaction  between  the  various  atomic  species  takes  place, 
reactants  are  consumed  and  products  build  in  concentration.  Transport 
of  reactants  to  and  products  from  the  interface  is  a  diffusion  process 
which  may  be  accelerated  by  boundary  layer  thinning  caused  by  convective 
mass  transfer.  The  case  of  pure  diffusion  rate  control  was  treated  by 
Warburg  (22)  who,  after  combining  the  impedances  associated  with 
diffusion  of  both  oxidizing  and  reducing  species,  found  that  the 
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resultant  impedance  has  both  real  and  imaginary  elements.  The  so-called 
"Warburg  inpedance"  is  therefore  modeled  as  a  resistor  and  a  capacitor 
in  series. 

Chemical  reactions  may  also  limit  the  rate  of  current  flow.  The 
equivalent  electrical  impedance  of  chemical  reactions  was  investigated 
by  Gerischer  (23)  who  showed  that  it,  too,  has  real  and  imaginary  com- 
ponents and  could  also  be  modeled  as  a  resistor  in  series  with  a 
capacitor.  The  diffusion  into  or  release  of  metal  "ad-atoms"  from  the 
ordered  metallic  lattice  of  a  corroding  surface  may  also  impede  the 
flow  of  electrons.  The  term  "ad  atoms"  was  coined  by  Iorenz  (24)  and  is 
the  word  which  describes  the  final  state  of  the  metal  ion  prior  to 
going  into  solution.  Just  as  in  the  case  of  diffusion  and  reaction 
impedance,  this  "crystallization  impedance"  has  real  and  imaginary 
parts  and  is  modeled  by  Vetter  (25)  as  a  capacitor  in  parallel  with  a 
resistor. 
Solution  Resistance 

The  final  component  of  the  general  electronic  network  model  is 
the  resistance  of  the  solution  between  the  reference  electrode  and  the 
thin  interface  layer  where  all  other  components  of  the  network  lie.  In 
electroanalytical  studies  of  redox  reactions,  one  usually  adds  an 
innocuous  supporting  electrolyte  to  the  solution  which  eliminates  or 
minimizes  the  contribution  of  this  component  to  the  overall  impedance. 
In  corrosion  studies,  the  addition  of  a  highly  conductive  salt  such  as 
KC1  may  prove  anything  but  innocuous,  leading  to  a  significant  increase 
in  corrosion  rate.  Furthermore,  if  one  considers  the  application  of 
a  general  network  model  to  a  variety  of  corrosion  monitoring  scenarios, 


13 
there  would  be  great  utility  in  being  able  to  monitor  corrosion  where 
the  magniture  of  the  solution  resistance  is  quite  large  such  as  in  the 
corrosion  of  reinforcing  bars  in  concrete  or  in  the  corrosion  of  metals 
in  organic  solutions  with  only  small  concentrations  of  electrolyte. 
Equivalent  Circuit  Models 

The  general  electronic  network  model  for  an  electrochemical 
interface  with  all  the  aforementioned  equivalent  electrical  inpedances 
is  discussed  by  Vetter  (26)  and  is  depicted  in  Figure  2.1.  Grahame  (27) 
introduced  the  concept  of  faradaic  impedance  to  describe  the  effective 
impedance  of  the  series-connected  upper  loop  of  the  general  model. 
Other  investigations  have  sought  to  simplify  the  general  model  by 
neglecting  components  whose  contribution  to  the  total  impedance  would 
be  small  under  particular  circumstances.  For  example,  an  equivalent 
circuit  diagram  which  considers  only  charge  transfer  and  diffusion 
components  of  the  faradaic  impedance  was  introduced  by  Randies  (28) 
and  is  shown  in  Figure  2.2. 

Such  simplifying  models  as  those  put  forth  by  Randies  are  justified 
in  view  of  the  fact  that  the  impedance  offered  by  some  components  of  the 
general  electronic  network  model  may  be  orders  of  magnitude  smaller  than 
others.  The  simplified  models  are  also  less  difficult  to  analyze  than 
the  general  model.  The  method  of  determining  which  components  to 
neglect  may  not  be  very  straightforward,  however.  Vetter  (29)  discusses 
the  ramifications  of  this  problem  at  length  and  describes  a  variety  of 
experimental  methods  useful  in  electrochemical  analysis.  For  example, 
either  diffusion  or  a  chemical  reaction  may  be  the  cause  of  a  limiting 
current  in  a  direct  current  polarization  test.  One  may  distinguish 
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Figure  2.1  General  electronic  network  model  for  an  electrode  shewing 

imoedances  associated  with  charge  transfer  (Rt) ,  diffusion 

(R.,CJ,  chemical  reaction  (R  ,C  ) ,  crystallization  (R^Cj 

and  also  considering  double  layer  capacity  (C^)  and 

solution  resistance  R  (after  Vetter) . 
s 


Figure  2.2  Randies  circuit  model  for  electrode  impedance,  W,  Warburg 
inpedance  associated  with  diffusion;  R  ,  charge  transfer 
resistance;  R  ,  solution  resistance;  CL,  double  layer 
capacitance. 
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which  of  the  two  provides  the  dominant  resistive  component  by  stirring. 
Reaction  impedances  are  not  affected  by  stirring  while  diffusion 
impedances  are  decreased  due  to  diffusion-layer  thinning. 

Alternating  current  measurements  may  also  be  used  to  distinguish 
among  and  to  quantify  the  various  impedance  components.  Since  the  imped- 
ance of  a  capacitive  element  is  a  function  of  frequency,  plots  represent- 
ing the  dependence  of  the  faradaic  impedance  (upper  half  of  the  circuit 
shown  in  Figure  2.1)  on  the  square  root  of  the  reciprocal  frequency  are 
sometimes  useful  in  separating  the  various  contributions  to  the  faradaic 
impedance.  Such  a  plot  for  an  interface  exhibiting  only  charge  transfer 
and  diffusion  resistance  is  shown  in  Figure  2.3.  The  upper  line  repre- 
sents the  real  part  of  the  impedance  and  contains  only  the  resistive 
elements  R  and  R,  while  the  lower  curve  is  the  imaginary  part  of  the 
impedance  and  contains  only  the  capacitive  part  of  the  diffusion 
impedance.  Of  course,  interfaces  exhibiting  other  contributions  to  the 
faradaic  impedance  face  more  difficult  interpretation  with  this  method. 
Furthermore,  experimental  techniques  of  separating  the  faradaic  compon- 
ent from  the  double- layer  and  solution-resistance  components  do  not 
usually  work  in  electrochemical  reactions  in  which  the  electrode  itself 
is  involved,  i.e.,  corrosion. 

Electrochemical  Reactions  in  the 
Presence  of  Passive  Films 

In  addition  to  the  impedance  contributions  of  the  electrochemical 

interface,  the  character  of  corrosion  product  films  is  of  extreme 

importance  to  the  rate  and  type  of  corrosion  for  many  metals.  Indeed, 

the  presence  of  a  passive  film  may  protect  an  otherwise  active  metal 

from  electrochemical  deterioration. 
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Fiaure  2.3  Dependence  of  the  components  of  the  faradaic ^ impedance 
on"l/vSTfor  rate-control  determined  by  diffusion  and 
charae- transfer  only;  Rf ,  faradaic  resistance;  Rf 
charge  transfer  resistance;  R$,   diffusion  resistance; 
1/coCf  =  1/wCfl,  capacitive  reactance  due  to  diffusion. 
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Impedance  data  for  solid  films  suggest  that  a  series  or  parallel 
combination  of  a  resistor  and  capacitor  can  be  used  as  a  model  for  the 
film.  Pryor  (30),  Beck  et  al.  (31,  32),  Heine  et  al.  (33-35)  and 
Richardson  et  al.  (36,  37)  have  conducted  numerous  studies  of  the 
properties  of  both  air- formed  and  anodic  oxide  films  on  aluminum  using 
AC  impedance  techniques.  In  the  attempt  to  isolate  the  impedance  of 
the  film  from  the  impedance  contributions  of  the  electrochemical  inter- 
face, Richardson  et  al.  (37)  proposed  the  equivalent  circuit  model  as 
shown  in  Figure  2.4.  Haruyama  and  Tsuru  (38)  also  considered  this 
so-called  dielectric  film  model  and  have  contrasted  it  with  charge 
transfer  and  adsorbed  oxygen  models  in  predicting  the  impedance 
characteristics  of  passive  iron. 

Electrochemical  Corrosion  Monitoring 
In  the  absence  of  a  general  predictive  theory  for  the  rate  of 
metallic  deterioration  under  the  wide  variety  of  possible  exposure 
conditions,  engineers  rely  on  empirical  corrosion  rate  data  obtained 
from  systems  closely  resembling  the  one  of  interest.  Such  data  collec- 
tion methods,  using  direct  analytical  methods  such  as  weight  loss  or 
spectroscopic  solution  analysis,  are  time-consuming  and,  even  when 
carried  out  carefully,  may  not  accurately  represent  the  full  range  of 
environmental  conditions  present  in  a  real  system.  The  direct  analytical 
methods  are  also  limited  to  metallic  systems  which  do  not  form  adherent 
layers  of  corrosion  product. 


18 


Figure  2.4  Richardson,  Wood,  Breen  model  of  an  electrochemical 
interface  with  a  passive  film,  on  the  surface;  Cp 
capacitance  of  film;  Rf ,  film  resistance;  Cq,   double 
layer  capacitance;  Zf,  faradaic  impedance;  Rs/ 
solution  resistance. 
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The  electrochemical  mechanism  of  metallic  deterioration  in  aqueous 
environments  has  led  to  the  application  of  electroanalytical  methods  to 
the  study  of  corrosion  and  to  the  in  situ  monitoring  of  corrosion  in 
real  systems.  Electrochemical  methods  can  determine  corrosion  rates 
much  more  quickly  than  the  direct  methods  and  are  reasonably  accurate. 
However,  most  electrochemical  methods  suffer  from  the  disadvantage  that 
they  must  perturb  the  corroding  system  with  an  externally  applied  DC 
voltage,  a  fact  which  inevitably  changes  the  local  surface  properties 
and  perhaps  the  local  corrosion  rate  from  that  of  the  surroundings. 
Recognizing  the  potential  adverse  consequences  of  this  perturbation, 
one  seeks  a  method  which  obtains  information  about  the  corrosion  process 
as  quickly  as  possible  with  the  smallest  possible  perturbations. 

Two  generic  types  of  electrochemical  methods  have  been  applied  to 
the  corroding  interface:  the  widely-used  direct  current  polarization 
methods  and  the  more  recent  AC  impedance  techniques. 
DC  Methods 

The  two  most  popular  DC  methods  are  Tafel  line  extrapolation  and 
polarization  resistance  measurements. 

Tafel  line  extrapolation.  The  method  of  Tafel  line  extrapolation 

is  based  on  the  theories  of  Wagner  and  Traud  (39)  and  employs  large 

polarization  amplitudes.  By  extrapolating  the  large  amplitude  cathodic 

and  anodic  polarization  curves  toward  the  corrosion  potential,  one 

obtains  I    and  E    from  the  point  of  intersection.  See  Figure  2.5. 
corr     corr 

This  method  is  widely  used  as  a  laboratory  analysis  technique,  but 
because  of  the  large  polarization  of  the  corroding  electrode,  it  can 
cause  irreversible  changes  during  the  measurement  process.  This  fact 
renders  it  of  only  limited  value  for  corrosion  monitoring  purposes,  in 
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LOG  CURRENT  DENSITY 


Figure  2.5  Determination  of  corrosion  potential  and  corrosion 
current  from  Tafel  line  extrapolation. 
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and  of  itself,  although  the  determination  of  Tafel  line  slopes  is 
required  for  corrosion  rate  computation  via  the  polarization  resistance 
method.   (See  discussion  of  polarization  resistance  below.) 

Lorenz  and  Mansfeld  (11)  point  out  that  the  corrosion  rates 
predicted  by  Tafel  line  extrapolation  for  uniform  metal  corrosion  in 
acid  media  are  in  good  agreement  with  weight  loss  measurements.  However, 
in  systems  where  corrosion  product  layers  form  on  the  surface,  predictions 
of  corrosion  rate  via  the  Tafel  line  method  may  be  very  inaccurate. 
This  is  not  surprising  since  the  imposition  of  a  DC  signal  may  change 
the  characteristics  of  the  corrosion  product  film.  Furthermore,  break- 
down of  the  film  tends  to  occur  locally  rather  than  uniformly  over  the 
surface.  Thus,  the  "average"  corrosion  current  does  not  accurately 
reflect  the  destruction  of  the  component.  Similar  predictive  errors 
have  been  observed  in  the  presence  of  inhibitors  (11) . 

Polarization  resistance.  Measurement  of  polarization  resistance 
is  a  DC  method  more  suitable  for  use  in  corrosion  monitoring.  Polariza- 
tion resistance,  EU,  is  defined  as  the  tangent  to  a  polarization  curve 
at  the  corrosion  potential.  See  Figure  2.6.  The  relationship  between 

the  polarization  resistance,  IV,,  and  corrosion  current,  i___ji  was 

r  corr 

developed  by  Stern  and  Geary  (40,  41)  and  Stern  (42) .  They  showed 
that  for  a  simple  charge  transfer  controlled  system, 

Ba  Bc 1  (2.3) 

1carr  =  2.303  (6  +  8  )  R 
a    c    p 

where  i is  the  corrosion  current  and  R  is  the  polarization 

corr  p 

resistance.  Since  3  and  8  are  the  anodic  and  cathodic  Tafel  constants, 
a     c 
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Figure  2.6     Determination  of  Polarization  Resistance 
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Equation  (2.1)  can  be  written 


where 


i   =  -*- 

corr   R  (2.4) 

P 


r  =     a   c 

2.303(6,  +  B  ) 


a    c 
Thus,  the  determination  of  anodic  and  cathodic  Tafel  constants  and  the 

slope  of  the  polarization  curve  yield  predictions  for  i    via  Equation 

(2.4). 

Polarization  resistance  measurements  are  generally  made  at  applied 
potentials  within  30  mv  of  the  corrosion  potential  in  an  attempt  to 
confine  polarization  to  the  linear  region.  Although  F—  can  be  measured 
with  AC  or  DC  perturbations,  the  majority  are  made  using  DC  steady-state 
techniques.  The  DC  steady-state  techniques  can  be  very  time  consuming 
where  corrosion  rates  are  very  low,  a  disadvantage  for  a  monitoring 
technique.  The  value  of  polarization  resistance  measured  by  such 
a  technique  also  contains  a  contribution  from  solution  ohmic  resistance. 
When  this  so-called  "uncompensated  resistance"  (Rg)  is  large,  the  error 
due  to  its  inclusion  is  considerable  and  if  not  accounted  for  leads  to 
underestimation  of  corrosion  rate. 

Other  sources  of  error  in  polarization  resistance  measurements 
are  discussed  by  Lorenz  and  Mansfeld  (11)  and  reviewed  extensively  by 
Callow  et  al.  (43) .  Among  the  many  factors  mentioned  are  failure  to 
achieve  steady-state  during  polarization;  time-dependence  of  the 
corrosion  phenomenon,  particularly  during  early  stages;  localized 
corrosion  processes  such  as  pitting  or  crevice  corrosion;  hydrogen 
absorption  and  adsorption;  adsorption  of  reaction  intermediates;  and 
inhibitor  redox  processes. 
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AC  Methods 

1While  the  various  DC  methods  all  attempt  to  characterize  the 
corroding  interface  in  terms  of  a  single  resistance  value,  AC  methods 
offer,  in  principle,  the  possibility  of  separating  solution  and  faradaic 
resistance  components  and  permit  simultaneous  quantification  of  the  capa- 
citive  component  of  the  complex  impedance.  Because  they  are  capable  of 
quantifying  both  resistive  and  capacitive  impedance  components,  AC 
methods  offer  much  more  latitude  in  establishing  the  efficacy  of  the 
theoretical  models  described  previously.  Numerous  investigations  have 
capitalized  on  this  capability  and  have  used  AC  methods  to  measure 
polarization  impedance,  the  impedance  of  anodic  films  and  faradaic 
impedance  of  redox  reactions.  Excellent  reviews  of  the  development  of 
AC  electrochemical  methods  are  given  by  Grahame  (27) ,  Sluyters-Rehbach 
and  Sluyters  (44) ,  and  Smith  (45) . 

Because  of  the  capacitive  components  in  the  electrochemical 
interface  network,  polarization  impedance  is  frequency-dependent  (31) . 
At  high  frequencies,  the  capacitive  reactance  due  to  the  double  layer 
is  low  and  thus  determines  the  total  polarization  impedance.  Con- 
versely, at  low  frequencies  the  capacitive  reactance  of  the  double 
layer  approaches  infinity  and  the  polarization  impedance  is  equal  to 
the  polarization  resistance  R  .  See  Figure  2.7.  This  realization  led 

ir 

Epelboin  et  al.  (1)  to  define  the  polarization  resistance,  R  ,  as  the 
limit  of  the  faradaic  impedance  at  zero  frequency. 

Epelboin  and  coworkers  (1,  2)  also  suggest  that  a  more  reliable 
correlation  with  corrosion  rates  is  obtained  by  using  a  quantity  called 
the  "charge  transfer  resistance"  (R.) ,  the  limit  of  the  faradaic 
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Figure  2.7  Frequency  dependence  on  an  electrochemical 
interface  impedance.  Rp  is  the  limit  of 
faradaic  impedance  at  zero  frequency. 


26 
impedance  at  infinite  frequency.  By  performing  measurements  at  high 
frequencies,  it  was  reasoned,  variations  in  the  surface  coverage  of 
adsorbates  would  be  precluded  since  diffusion  could  not  keep  up  with 
the  changes  in  polarity.  In  a  study  of  the  inhibition  of  iron  corrosion 
by  propargyl  alcohol  in  acid  solutions,  R.  successfully  predicted 
corrosion  rates  where  measurement  of  R  failed. 

Lorenz  and  Mansfeld  (11)  dispute  the  general  usefulness  of  this 
approach,  however,  citing  its  dependence  on  the  assumption  that  the 
double-layer  capacitance  can  be  totally  separated  from  other  capacitive 
contributions  of  the  electrochemical  interface.  The  treatment  of  the 
double  layer  as  a  capacitor  in  parallel  with  the  polarization  resistance 
leads  to  the  prediction  of  a  single  semicircular  loop  in  the  complex 
plane  plot  of  the  system  impedance.  As  shown  in  Figure  2.8,  the  iron- 
propargyl  alcohol  systems  investigated  by  Epelboin  et  al.  deviate  sub- 
stantially from  this  predicted  behavior.  The  presence  of  inductive  loops 
in  these  and  other  iron  systems  is  a  particularly  puzzling  phenomenon 
from  the  standpoint  of  correlating  with  any  interface  model.  One  basic 
conclusion  of  Lorenz  and  Mansfeld' s  critique  seems  particularly  apropos: 
a  knowledge  of  system-specific  corrosion  behavior  is  required  before  any 
electrochemical  measurement  methods  can  be  used  reliably  to  predict 
corrosion  rate. 

Measuring  electrode  impedance.  The  impedance  of  an  electronic 
network  or  of  an  equivalent  circuit  which  simulates  a  corroding  electrode 
is  a  complex  function  of  frequency  possessing  both  magnitude  and  phase 
information.  Having  the  units  of  resistance,  it  may  be  found  by  taking 
the  ratio  of  the  complex  current  flowing  through  the  circuit  to  the 
complex  voltage  drop  across  the  network. 
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Ficrure  2.8  Imoedance  diagrams  for  spontaneous  corrosion  of  iron  in 
aerated  H2SO4;  (1)  IMK2SO4;  (2)  0.5MH2SO4;  (3)  0.5  M 
H2SO4  +  0.1  x  10-3  M  propargylic  alcohol;  (4)  0.5  M  H2SO4  + 
0.2  x  10~3  M  propargylic" alcohol;  (5)  0.5  M  H2S04  +  0.5  x  10-3 
M  propargylic  alcohol;  (6)  0.5  M  H2S04  +  2  x  10" 3  M  propar- 
gylic alcohol;  (7)  0.5  M  H2SO4  +  5  x  10~3  M  propargylic 
alcohol;  (8)  0.5  M  H2S04  +  20  x  10"3  M  propargylic  alcohol. 
See  Reference  (1)  . 
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This  can  be  done  by  a  number  of  methods.  A  simple  though  tedious 
approach  is  to  compare  the  input  voltage  perturbation  with  the  output 
current  response  in  x  and  y  channels  of  an  oscilloscope.  The  resulting 
Lissajous  figure  can  be  used  to  determine  the  impedance  modulus  and 
phase  shift  for  a  single  frequency.  The  method  is  time-consuming'  since 
it  must  be  repeated  at  each  frequency  and  is  not  very  practical  for  low 
frequencies.  Another  technique  compares  input  and  output  signals  at  a 
single  frequency  and  yields  direct  reading  of  modulus  and  phase  shift 
or,  in  some  cases,  real  and  imaginary  components.  The  tedium  of  multiple 
sequential  frequency  measurements  is  alleviated  somewhat  by  the 
availability  of  programmable  equipment,  e.g.,  Solartron.  The  only 
method  capable  of  simultaneously  comparing  the  perturbation  and  response 
of  multiple  frequency  signals  employs  equipment  which  computes  the 
Fourier  transform. 

Linear  System  Theory 
Assumptions 

When  the  impedance  is  evaluated  with  a  digital  signal  analyzer, 
the  interface  is  treated  as  a  "black  box"  with  a  single  input  and 
output  terminal.  The  potential  drop  across  the  interface  is  treated 
as  the  output  function  of  the  system  and  is  compared  with  the  current 
flow  through  the  interface  which  is  treated  as  the  input  function  of 
the  system.  The  algebraic  ratio  of  these  two  signals  expressed  as 
functions  of  frequency  is  the  frequency  response  or  sometimes  called 
the  transfer  function  of  the  system.  Before  one  attempts  to  determine 
the  impedance  of  a  corroding  interface  by  means  of  digital  signal 
analysis  and  to  use  it  to  characterize  the  interface,  it  is  appropriate 
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to  consider  the  inherent  assumptions  one  makes  in  this  process.  These 
assumptions  are  relaxedness,  linearity,  and  time-invar iance  (46). 

Relaxedness.  When  any  physical  system  is  treated  as  a  black  box 
and  one  is  attempting  to  abstract  key  properties  of  the  system  from 
its  response  to  some  excitation,  one  must  be  certain  that  the  system 
is  initially  relaxed,  i.e.,  that  the  system  is  not  still  responding  to 
some  previously  applied  signal  at  the  instant  of  test  signal  applica- 
tion. For  such  a  relaxed  system,  the  response  y(t)  may  be  related  to 
the  input  excitation  u(t)  by  the  following  relationship: 

y(t)  =  h  •  u(t)  (2.5) 

where  h  is  a  function  that  uniquely  specifies  the  output  y(t)  in  terms 
of  the  input  u  (t) . 

Relaxedness  is  usually  a  justifiable  assumption  when  evaluating 
electrochemical  interfaces.  From  the  author's  own  experience,  the  re- 
laxation time  of  an  electrochemical  interface  from  a  pulse  is  typically 
less  than  one  second.  Thus,  if  the  interface  has  not  been  stimulated 
for  ten  seconds  or  more,  the  response  of  the  system  may  be  reasonably 
assumed  to  have  resulted  only  from  the  excitation  u(t) .  Of  course,  all 
electrochemical  interfaces  exhibit  continuous  random  fluctuations  in 
potential  and  current  usually  known  as  electrochemical  noise  (14,  47). 
These  fluctuations  typically  have  an  amplitude  on  the  order  of  yV,  and 
the  system  obviously  exhibits  continuous  response  to  these  excitations. 
Itowever,  if  one  makes  the  amplitude  of  the  excitation  signal  large 
enough,  the  ratio  of  input/output  signals  to  system  noise  is  sufficient 
to  obscure  the  frequency  response  due  to  system  noise. 
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Linearity.  A  relaxed  system  is  considered  linear  if  two 
mathematical  conditions  are  satisfied  (46) :   (1)  the  output  due  to  a 
combination  of  inputs  equals  the  sum  of  the  outputs  due  to  each  input 
applied  individually,  i.e., 

h  •  (Z  u±  (t)}  =  E  h«  u±(t)  (2.6) 

i  i 

and  (2)  the  output  due  to  an  individual  input  multiplied  by  a  scalar 

equals  the  output  multiplied  by  that  scalar,  i.e., 

h  •  (a  u. (t)  }  =  ah  •  u.(t)  (2.7) 

A  linear  electrochemical  system  exhibits  a  linear  relationship  between 
current  and  potential  for  all  values  of  frequency.  As  shown  previously 
by  Equation  (2.2),  the  charge  transfer  behavior  is  approximately  linear 
if  the  polarization  voltage  is  kept  close  enough  to  equilibrium.  This 
implies  that  Equation  (2.7)  is  valid  only  for  values  of  a  below  some 
upper  bound.  The  limit  of  input  signal  amplitude  can  be  determined 
in  practice  by  the  limit  of  linearity  in  a  DC  polarization  experiment. 
In  general,  input  signal  amplitudes  less  than  about  30  mv  from 
equilibrium  satisfy  this  requirement. 

Time-invariance .  A  relaxed  linear  system  is  time- invariant  if 
the  characteristics  of  the  system  do  not  change  with  time.  This  con- 
dition is  not  rigorously  valid  for  the  electrochemical  interface  of  a 
corroding  electrode,  particularly  when  a  passive  film  is  present.  In 
such  cases,  the  gradual  growth  of  the  film  will  have  a  definite  effect 
on  the  values  of  the  network  parameters.  To  get  around  this  limita- 
tion, one  must  assume  that  the  corroding  electrode  exhibits  quasi-steady 
state  behavior,  i.e.,  does  not  change  significantly  during  the  period 
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of  measurement.  Minimizing  the  period  of  measurement,  besides  enhancing 
characterization  speed,  also  serves  to  assure  that  this  condition  is 
satisfied. 

Conclusions.  The  requirements  of  relaxedness,  linearity  and 
time-invariance  impose  some  important  constraints  on  the  way  electrode 
impedances  may  be  measured  using  digital  signal  analysis.  In  order  to 
neglect  the  effect  of  random  fluctuations,  the  excitation  signal  must 
have  a  significantly  larger  amplitude  than  the  system  noise.  To 
satisfy  linearity  requirements,  on  the  other  hand,  the  input  signal 
should  be  as  small  as  possible,  usually  less  than  about  30  mv  from 
equilibrium.  To  assume  that  time-invariance  of  the  system  is  adequately 
approximated,  the  period  of  measurement  should  be  as  short  as  possible. 
Domain  Transformations 

The  transformation  of  time  domain  signals  into  the  frequency 
domain  for  the  purpose  of  computing  electrode  impedance  is  outlined 
by  Pilla  (48) .  Pilla  illustrates  how  this  transformation  might  be 
accomplished  in  general  by  the  Laplace  transformation: 

oo 

F(s)  =  /  f  (t)  exp  (-s)dt  (2.8) 

o 

where  s  is  the  Laplace  transform  variable  (49) .  The  quantity  s  is  a 
complex  number  given  by  s  =  a  +  jw  in  which  a  is  the  real  and  jw  the 
imaginary  part.  Due  to  the  properties  of  F(s) ,  it  is  possible  to 
integrate  along  either  or  both  the  real  and  imaginary  axes  is  the 
complex  frequency  plane  which  defines  F(s) .  In  the  imaginary  axis 
transformation  (s  =  joi) ,  Equation  (2.8)  may  be  written: 
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00 

F(ja>)  =/  f(t)  exp  (-jai)dt  (2.9) 

o 

Equation  (2.9)  is  the  well-known  single-sided  Fourier  Transform  (48). 
For  relaxed,  linear,  time- invariant  systems,  the  frequency  response 
function  may  replace  the  transfer  function  with  no  loss  of  useful 
information  (49) . 

Although  some  investigations  continued  to  be  made  into  the  utility 
of  Laplace  transformations  (50,  51),  the  development  of  the  "fast  Fourier 
Transform"  algorithm  (FFT)  (52,  53)  made  it  convenient  and  practical 
to  effect  the  imaginary  axis  transformation  in  real  time.  Creason  and 
coworkers  (5-8)  capitalized  on  this  development,  demonstrating  that  with 
an  on-line  minicomputer,  it  is  possible  to  acquire  and  transform  time 
domain  signals  into  the  frequency  domain  in  less  than  3  seconds  (6) . 

Utilizing  on-line  computation  of  the  FFT,  it  is  possible  to 

determine  the  admittance  of  an  electrochemical  cell  by  the  expression 

A  («)  =  I(co)/E(o>)  (2.10) 

where  A(co)  is  the  cell  admittance,  I(w)  is  the  cell  current,  and  E(oi) 

is  the  potential  across  the  electrical  double  layer.  For  the  sake  of 

convenience  of  expression,  Creason  and  coworkers  (6)  chose  the 

alternative  form 

A(a>)  =  I(a>).E*(co)/E(a))E*(u)  (2.11) 

where  E*(«)  is  the  complex  conjugate  of  E(co).  In  this  formulation,  the 
admittance  is  expressed  as  the  cross  power  spectrum  divided  by  the 
auto  power  spectrum,  a  form  which  produces  phase  information  in 
the  numerator  only.  See  Appendix  A. 
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Although,  in  principle,  this  formulation  is  applicable  to  any 
generalized  test  signal,  Creason  and  coworkers  anticipated  that  some 
signal  waveforms  might  be  more  "efficient"  than  others  (6-8) .  In 
this  context,  "efficiency"  refers  to  the  amount  of  data  dispersion 
present  after  a  certain  number  of  replicate  measurements.  With  this 
in  mind,  they  undertook  a  detailed  empirical  study  of  measurement 
efficiency  associated  with  Fourier  transform  faradaic  admittance 
measurements  (8) .  Four  waveform  classes  were  used:   (1)  complex 
periodic  signals,  waveforms  composed  of  discrete  coherently-related 
sinusoidal  components;  (2)  almost  periodic  signals,  waveforms  composed 
of  discrete  non-coherently  related  sinusoidal  components;  (3)  aperiodic 
transients,  signals  with  continuous  well-defined  smoothly-varying  phase 
and  amplitude  spectra;  and  (4)  stochastical  signals,  signals  with  con- 
tinuous spectra  which  have  smooth  distribution  after  long  times. 

The  efficiency  of  the  various  waveforms  was  evaluated  using  the 
redox  couple  Cr (CN) g3/Cr (CN) g4  in  1  M  KCN  at  25°C  on  a  dropping  mercury 
working  electrode.  As  is  customary  for  AC  polarographic  experiments, 

the  faradaic  admittance  data  is  portrayed  in  plots  of  magnitude  vs  w 

h 
and  cot  dvsm;  See  Figure  2.9.  Such  plots  are  linear  or  nearly  so 

for  the  redox  couple  under  consideration,  and  it  was  thus  possible  to 

quantitatively  assess  measurement  precision  based  on  the  relative 

standard  deviations  of  the  intercept  and  slope  as  determined  by  the 

linear  regression  technique. 

The  results  of  this  comparison  for  64  replicates  on  random  noise, 

pseudo-random  noise,  pulse  and  multicomponent  sinusoidal  arrays  of 

varying  amplitude  is  quite  dramatic.  In  general,  the  data  precision 
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improved  with  decreasing  signal  amplitude  presumably  in  response  to 
decreases  in  faradaic  non-linearity-  Overall,  the  best  precision  was 
achieved  with  a  phase-varying  15  component  odd  harmonic  array  with  a 
standard  deviation  in  the  intercept  of  0.08%.  Under  a  similar  set  of 
measurement  conditions,  a  negative  pulse  produced  an  intercept  standard 
deviation  of  6.33%.  The  random  noise  and  pseudo-random  noise  signals 
fell  between  these  extremes  with  standard  deviations  of  1.39%  and  0.56%, 
respectively. 

Based  on  these  early  data,  Schwall  et  al.  (12)  developed  a  high 
speed  synchronous  data  generation  and  sampler  system  for  which  the 
acronym  SYDAGES  was  coined.  SYDAGES  functions  as  a  programmable  signal 
generator  combined  with  two  data  acquisition  channels  with  the  capability 
of  handling  signals  up  to  500  kHz. 

Smith  (10)  has  predicted  that  Fourier  transform  data  processing 
on  electroanalytical  measurements  will  exceed  its  influence  in  the 
field  of  spectroscopy.  Despite  this  predictions,  relatively  few 
investigators  have  conducted  studies  utilizing  this  feature.  Blanc  et 
al.  (4)  demonstrated  how  impedance  measurements  could  be  made  on  an 
iron-sulfuric  acid  system  using  a  so-called  correlator,  a  device  which 
determined  the  Fourier  transform.  DeLevie  and  coworkers  (13)  have 
applied  the  procedure  in  the  study  of  ion-conducting  ultrathin  membranes. 
Smyrl  and  Pohlman  (54)  demonstrated  that  corrosion  parameters  can 
be  determined  by  this  method  although  in  their  system,  the  Fourier 
Transform  was  performed  batchwise  on  a  CDC  6600  system. 

The  apparent  reticence  of  the  electrochemical  community  to 
embrace  this  technique  may  be  explained  in  part  by  the  fact  that 
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electronic  system  noise  becomes  a  problem  when  one  tries  to  perturb 
an  electrochemical  interface  with  small  multiple  frequency  signals. 
Unlike  the  single  frequency  "lock-in  amplifier"  method,  there  is  no 
way  to  distinguish  between  electronic  system  noise  and  system  response 
in  developing  the  Fourier  spectrum.  Fortunately,  investigators  of 
electrochemical  noise  (3,  14,  47)  have  also  been  concerned  with  this 
problem.  Recent  work  by  Schideler  and  Bertocci  (47)  has  resulted  in 
the  development  of  low-noise  potentiostat  capable  of  suppressing 
electronic  noise  to  the  order  of  2.5  x  10~8v/Hz.  They  (47)  have  used 
this  low-noise  potentiostat  to  measure  electrode  impedance  using  both 
superimposed  and  electrochemical  noise  signals. 

Analysis  of  AC  Impedance  Data 

During  the  evolution  of  AC  frequency  response  techniques,  a  number 
of  methods  of  portraying  and  analyzing  data  have  been  proposed  and  used. 
Sluyters-Rehbach  and  Sluyters  (44)  provide  a  review  of  the  possibilities 
as  they  might  apply  to  electrochemical  analysis.  One  of  the  most 
ccraron  portrayals  in  the  AC  literature  is  the  complex  plane  plot,  that 
of  the  imaginary  component  of  the  electrode  impedance  plotted  against 
the  real  part. 

For  a  Randies  equivalent  circuit  (see  Figure  2.2) ,  the  complex 
plane  plot  can  provide  quantitative  information  about  the  various 
components  of  the  circuit.  Such  an  equivalent  circuit  will  produce 
a  complex  plane  plot  of  the  form  shown  in  Figure  2.10.  As  can  be 
seen  in  Figure  2.10,  the  plot  may  be  separated  into  two  regions,  one 
exhibiting  semicircular  character  and  the  other  linear  behavior. 
This  observation  is  consistent  with  the  analytical  determination  of 


37 


REAL  PART  OF  IflPEDANCE 


Figure  2.10     Analytical  prediction  of  impedance  behavior 
of  Pandles  eouivalent  circuit. 
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Sluyters-Rehbach  and  Sluyters  (44)  who  showed  that  the  real  and 
imaginary  components  of  the  Warburg  impedance  can  be  determined  in 
the  low  frequency  linear  region  while  the  semicircular  high  frequency 
region  yields  quantitative  data  on  the  values  of  the  remaining 
components. 

If  experimental  acquisitions  of  impedance  data  yields  no  such 
linear  low  frequency  region,  which  is  often  the  case  for  corroding 
electrodes,  the  circuit  can  be  modeled  as  the  three-element  networks 
shown  in  Figure  2.11.  The  impedance  of  the  network  shown  in  Figure 

2.11  may  be  written: 

R 
P 
Z  =  R  +  .  t  ■  =  n  (2.12) 

s   1  +  30)  RpCd 

The  real  part  of  the  impedance  is  given  by 

R 

Z  =  R  +  (2.13) 

2  2  2 


and  the  imaginary  part  is  given  by 

aiC-R2 

ZT  = JLE (2.14) 

2  2  2 

1  +  -\\ 

By  appropriate  rearrangement  and  combination  of  Equations  (2.13)  and 

(2.14) ,  one  finds  „ 

ZI 

(2.15) 


(ZR  "  Wd 
which  upon  substitution  into  Equation  (2.13)  and  the  appropriate 


rearrangement  yields 


K.^.fr.^-y 
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Figure  2.11     Simplication  of  Randies  equivalent  circuit;   valid 
where  diffusion  is  not  rate-limiting. 
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Figure  2.12  Complex  plane  evaluation  of  the  three-element 
network  shown  in  Figure  2.11. 
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This  is  the  equation  of  a  circle  in  the  complex  plane  with  its  center 

R 
on  the  Z  axis  at  Z  =  R  +  J^-  and  radius  R  /2.  Intersections  of  the 

K  K     S    ^-  p 

circle  with  the  Z_,  axis  occur  at  Z  =  R  for  u  =  °°  and  Z_  =  R  +  R 
R  r    s  R    s    p 

for  w=0.  Only  cases  where  ai,  C_,  R  and  R  are  positive  have  physical 

significance;  so  one  plots  the  circle  only  in  the  fourth  quadrant  of  the 

complex  plane.  In  the  literature,  this  plot  is  usually  rendered  as 

-Z_  vs  Z_  as  shown  in  Figure  2.12.  It  can  also  be  shown  that  the  fre- 

quency  at  Z  =  R  +  RV2,  i.e.,  at  the  apex  of  the  semicircle,  can  be  given 

by 

_  _1 (2.17) 

"apex   R^ 

Given  data  over  a  sufficient  range  of  frequency,  therefore,  one 
can  determine  values  for  R  ,  R  and  CL  from  a  complex  plane  plot  of 
the  impedance. 

Other  methods  of  graphical  analysis  have  been  suggested  in  the 
literature  (54) .  Linear  plots  are  useful  because  it  is  difficult  to 
curve- fit  a  semicircle  when  there  is  data  scatter.  By  combining 
Equations  (2.13)  and  (2.14),  two  linear  equations  are  derived: 

ZR  *  Rs  +  Rp  "  VD  W  ZI  (2-18) 

ZI 

zr  ■  Rs  +  snre^-  (2a9) 

Plotting  Z  vs  Z  *f  yields  a  straight  line  with  a  slope  of  -  2ir  R  CL^ 
and  an  intercept  of  R  +  R  .   A  plot  of  Z  vs  Z  /f  provides  an  inter- 
cept of  R  .  See  Figure  2.14. 
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Figure  2.13  Pohlman-Smyrl  technique  of  analyzing  the  impedance 
of  the  three-element  network  given  in  Figure  2.11. 
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Figure  2.14  Bode  plot  of  frequency  response  for  the  three-element 
network  shown  in  Figure  2.11.  i^  and  f^  are  com- 
plicated functions  of  C~  and  R  . 
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A  third  cannon  method  of  data  portrayal  is  done  with  plots  of 
log  |Z| ,  and  phase  angle,  9/  vs  log  of  frequency,  f,  commonly  known  as 
Bode  plots.  The  values  of  R  and  R  may  be  obtained  from  the  former 
plot  as  shown  in  Figure  2.14  and  in  combination  with  the  latter  plot 
yields  C_.  The  Bode  plots  have  several  advantages  over  the  other 
graphical  portrayals:   (1)  since  the  log  frequency  scale  is  used,  data 
from  lower  frequencies  are  not  obscured;  (2)  the  network  component  values 
may  be  computed  using  higher  frequency  data  than  with  the  other  methods. 
This  is  fortunate  since  the  low  frequency  data  require  much  more  time 
to  gather  and  are  more  susceptible  to  significant  dispersion. 

Recapitulation;  State-of-the-Art 
The  characterization  of  electrochemical  interfaces  has  been 
attempted  with  a  variety  of  methods.  DC  techniques  result  in  the 
depiction  of  the  interface  as  a  single  polarization  resistance  term, 
which  includes  the  resistance  of  the  electrolyte  solution.  AC  techniques 
offer  the  possibility  of  separating  solution  resistance  from  faradaic 
resistance  components  while  quantifying  capacitive  components  at  the 
same  time.  In  Figure  2.15,  schematic  diagrams  of  electrochemical  cells 
contrast  the  interface  model  using  DC  polarization  with  one  possible 
model  using  an  AC  technique.  AC  impedance  may  be  measured  by  a  variety 
of  methods,  the  majority  of  which  require  the  sequential  application  of 
a  series  of  single  frequency  sinusoidal  signals. 

The  tedium  and  time-consumption  of  such  processes  is  eliminated  in 
principle  by  fast  Fourier  transform  technology.  Using  the  FFT  algorithm 
in  an  on-line  minicomputer,  one  can  simultaneously  investigate  a 
continuum  of  frequency  by  converting  time  domain  input  perturbation 
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(A) 


(3) 


Figure  2.15  Schematic  diagrams  of  electrochemical  cells.  The 
interface  model  is  represented  as  shown  in  (A)  by 
the  DC  polarization  technique.  The  three-element 
model  including  double  layer  capacitance  as  shown 
(B)  or  other  more  complicated  models  may  be  depicted 


using  AC  techniques.  R. 


polarization  resistance; 
Rg,  solution  resistances  CdL,  double  layer  capaci- 
tance; C,  counter  electrode;  R,  reference  electrode, 
W,  working  electrode. 


45 

and  output  response  signals  into  the  frequency  domain  and  computing  the 
electrode  impedance.  Graphical  methods  applied  to  the  resultant  com- 
plex plane  plots  result  in  the  determination  of  equivalent  circuit 
parameters. 

The  primary  difficulties  encountered  with  FFT  electrode  impedance 
measurements  have  been  associated  with  selection  of  the  "most  efficient" 
signal  type  and  signal  amplitude.  In  general,  pseudo-random  noise 
effects  less  data  dispersion  than  white  noise,  while  transient  signals 
such  as  pulse,  ramp,  and  step  tend  to  be  the  least  efficient.  With 
regard  to  signal  amplitude,  one  must  select  a  signal  large  enough  to 
negate  the  effects  of  electronic  equipment  and  electrochemical  system- 
noise  while  not  introducing  faradaic  nonlinearities  with  too  large  a 
signal  amplitude.  The  development  of  low-noise  potentiostats  should  be 
helpful  in  permitting  this  to  be  done. 


CHAPTER  III 
SYSTEM  DEVELOPMENT 

System  Components 

The  assemblage  of  equipment  referred  to  here  as  the  "AC  system" 
was  built  around  a  Hewlett-Packard  (HP)  5420  digital  signal  analyzer. 
The  analyzer  continuously  monitors  and  digitizes  time-varying  analog 
signals  corresponding  to  the  perturbation  and  response  of  the  system 
under  investigation.  Having  gathered  an  ensemble  of  digitized  data 
representing  the  time  domain,  the  analyzer  performs  a  transformation 
to  the  frequency  domain  via  the  fast  Fourier  transform  algorithm  (FFT) . 
A  variety  of  algebraic  manipulations  may  then  be  performed  on  the 
resultant  arrays  to  yield  both  time  and  frequency  domain  functional 
relationships  which  describe  the  frequency  response  of  the  system.   (See 
Appendix  A  for  a  more  thorough  discussion  of  the  capabilities  of  a  digi- 
tal signal  analyzer.) 

The  signal  analyzer  capability  of  primary  interest  in  this  study 
is  the  rendition  of  the  transfer  function.  In  its  general  definition, 
the  transfer  function  of  a  system  is  a  frequency  domain  correspondence 
between  perturbation  and  response  signals.  Since  it  is  a  complex 
function,  it  provides  both  magnitude  and  phase  information  at  each  fre- 
quency. In  this  study,  the  pertubation,  E(t) ,  is  a  bandwidth  limited 
white  noise  (BLWN)  voltage  signal  applied  between  the  reference  and 
working  electrode  of  a  three-electrode  electrochemical  cell.  The 
response,  I(t),  is  a  time-varying  voltage  signal  directly  proportional 
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to  the  current  passing  between  the  counter  and  working  electrodes.  The 

transfer  function,  H(f ) ,  is  therefore  a  measure  of  the  corroding 

electrode  admittance,  Y(f). 

tt,£>   tr/*\   output  _  1(f) 

H(f)  =Y(f)  ="in|ut-E(fT  0.1) 

By  mathematically  inverting  the  ratio  of  response  to  perturbation  or  by 

reversing  the  voltage/current  leads  to  the  analyzer,  one  obtains  the 

electrode  inpedance,  Z(f). 

....     1     E(f) 

z(f)  =YlfT  =  TTfT  <3-2> 

A  schematic  diagram  illustrating  this  analyzer  function  is  shown  in 

Figure  3.1. 

As  mentioned  in  the  previous  chapter,  the  BLWN  signal  is  not  the 
most  "efficient"  for  electrochemical  interface  perturbation  (8) .  The 
BLWN  source  was  used  because  of  its  availability,  being  an  integral  part 
of  the  HP5420.  Other  signal  sources  should  provide  data  less  susceptible 
to  scatter. 

As  shown  schematically  in  Figure  3.2,  the  BLWN  signal  is  injected 
into  the  Princeton  Applied  Research  (PAR)  173  potentiostat  at  the  summing 
junction  of  the  control  amplifier.  Here  it  adds  to  any  DC  set  potential 
dialed  on  the  potentiometer.  The  resultant  combination  of  AC  and  DC 
voltage  components  is  then  maintained  between  the  reference  and  working 
electrodes.  This  combined  signal  is  sensed  by  the  potentiostat  electro- 
mater  circuit  and  is  fed  to  one  of  the  two  analog-to-digital  converter 
(ADC)  channels  of  the  HP5420.  The  flow  of  current  between  the  counter 
electrode  and  the  working  electrode  in  response  to  the  voltage  perturba- 
tion is  sensed  by  a  zero-resistance  ammeter  which  produces  a  voltage 


48 


•H  T3    tP  £   0) 

w  d  nj  10  o 


s 


M  +J  0)  ^ 

(1)  -rH  T1    iH 

P  2  0  <D 

3  M  T1 

Qj  d)  -P    >i 

B  U  U 

0  ft  0)    Q 

O  ip.  H  -P 

H  S-i  0  _ 

Ji  |  S  QJ  "8 

y-i  in  > 

co  n)  O  tJ 


6i  85  S -b 


49 


&  a 


H  OH 

4-3  13  TJ    M 
&  r3   r3    > 


.    O 


I 


50 

proportional  to  the  measured  current.  This  latter  voltage  is  fed  to 
the  second  ADC  channel  of  the  HP5420. 

Since  the  PAR  173  was  designed  for  DC  work,  there  was  initially 
same  concern  about  the  capability  of  the  potentiostat  to  reliably  trans- 
mit the  higher  frequency  components  of  the  AC  signal.  To  test  the  fre- 
quency response  of  the  potentiostat,  a  1  volt  p-p  sinusoidal  signal  was 
applied  at  the  summing  junction  of  the  control  amplifier.  The  voltage 
drop  across  a  resistor  connected  between  the  reference  and  working 
electrode  leads  was  monitored  and  compared  to  the  input  signal  on  a  dual 
trace  oscilloscope  as  the  signal  frequency  was  increased.  There  was  no 
perceptible  attenuation  or  phase  lag  across  the  resistor  until  about 
30  kHz;  above  the  25.6  kHz  maximum  bandwidth  range  of  the  HP5420.  This 
procedure  demonstrates  that  the  potentiostat  is  adequate  for  the  range 
of  frequencies  which  will  be  analyzed  with  this  technique. 

The  third  major  component  of  the  AC  system  is  the  187K  byte,  HP9845 
minicomputer  with  integral  dot-matrix  thermal  printer  and  two  integral 
tape  drives.  To  permit  even  faster  retrieval  from  mass  storage,  the  com- 
puter was  also  equipped  with  two  eight-inch  floppy  disk  drives.  The 
computer  carried  out  a  variety  of  tasks  including  control  of  the  HP5420, 
storage  of  impedance  data  from  individual  runs,  tying  data  from  sequen- 
tial runs,  mathematical  manipulation  of  data  and  graphical  portrayal  of  the 
data  on  the  HP9845  CRT,  thermal  printer  or  remote,  four-color  plotter. 

A  schematic  diagram  illustrating  the  interconnection  of  the  various 
components  is  given  in  Figure  3.3.  The  HP9845  is  connected  to  the  HP5420 
via  an  HP  interface  bus  (HPIB) ;  all  other  signal-carrying  connections 
being  made  with  coaxial  cable. 
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Figure  3.3  Schematic  illustrating  the  interconnection  of  the 

electrochemical  cell,  PAR  173  potentiostat,  HP  5420A 
signal  analyzer  and  HP  9845  computer.  The  computer 
controls  the  operation  of  the  analyzer  and  receives 
impedance  data  from  it.  in  the  form  of  real,  imaginary, 
frequency  triples  of  data.  Following  data  manipulation, 
the  computer  delivers  graphical  portrayals  of  the 
impedance  data. 
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It  would  have,  of  course,  been  possible  to  control  the  set-up  and 
execution  of  an  analysis  run  by  means  of  manual  key  strokes  on  the 
HP5420  console.  However,  the  versatility  of  the  HP5420  renders  the 
number  of  keystrokes  required  to  establish  a  desired  set-up  state  rather 
large — typically  15-20.  By  creating  command  sequences  in  the  software 
of  the  HP9845,  tedium-induced  operator  error  in  the  execution  of  an 
analysis  run  can  be  eliminated.  The  time  required  for  a  set  of  sequen- 
tial analysis  runs  on  the  same  electrode  is  thus  minimized  and  the  runs 
are  reproducible.  Furthermore,  the  HP5420  is  incapable  by  itself  of 
connecting  sequentially  gathered  sets  of  data,  a  task  necessitated  by 
developmental  problems  discussed  in  the  next  section. 

Mathematical  manipulation  of  data  includes  such  tasks  as  multiplying 
and  dividing  the  imaginary  part  of  the  impedance  data  by  frequency  for 
portrayal  in  plots  of  real  versus  imaginary  x  frequency  and  versus 
imaginary/frequency.  The  computer  also  determines  the  magnitude  of  the 
impedance  from  real  and  iitaginary  parts,  computes  log  magnitude  versus 
log  frequency  plots  and  scales  the  data  by  the  value  of  the  resistor 
across  which  the  current  is  determined.  A  linear  regression  routine 
may  be  performed  on  any  selected  section  of  plot  yielding  the  equation 
of  the  straight  line  fit  and  correlation  coefficient.  A  data-smoothing 
routine  may  also  be  performed  on  data  sets. 

Once  the  desired  mathematical  manipulations  have  been  performed 
on  the  data,  they  may  be  portrayed  graphically  in  any  of  the  standard 
formats  described  in  Chapter  II  or  in  any  other  desired  format. 
Graphical  analysis  of  the  standard  formats  presumes  the  data  fit  the 


53 
three-component  equivalent  circuit  model  described  previously,  yielding 
two  values  of  resistance  and  one  of  capacitance.  One  nay  also  generate 
a  theoretical  data  set  for  a  three-component  network  with  arbitrary  values 
of  Rg,  Rp  and  CD  and  plot  the  theoretical  set  against  the  real  data. 

The  numerous  capabilities  of  the  computer  are  all  controlled  from 
a  single  main  program  written  in  BASIC.  The  main  program  is  read  into 
the  random  access  memory  from  tape  or  floppy  disk.  Once  the  user  selects 
the  desired  computer  function  from  the  menu  displayed  on  the  CRT,  other 
sections  of  code  required  to  perform  the  specified  task  are  read  in 
from  floppy  disk  at  the  direction  of  the  main  program.  The  main  program 
is  interactive  with  the  user  thus  permitting  operation  by  persons  not 
highly  trained  in  computer  technology.  As  previously  mentioned,  the  user 
may  also  create  catmand  files  of  frequently-repeated  operations  which  may 
be  stored  or  reexecuted.  Appendix  D  contains  a  thorough  description  of 
both  the  main  program  and  some  frequently-used  command  files. 

Developmental  Problems 
Equipment  Integration 

At  the  outset  of  the  project,  it  was  anticipated  that  equipment 
integration  would  be  a  relatively  simple  task.  During  attempts  to 
interface  the  HP5420  and  its  integral  random  noise  source  to  the  PAR  173, 
however,  offset  voltages  were  encountered,  presumably  the  result  of  dis- 
similar ground  loop  currents.  These  offset  potentials  were  troublesome 
because  they  changed  the  DC  component  of  the  applied  signal.  As  a  con- 
sequence, the  set  potential  of  the  potentiostat  was  observed  to  change 
by  as  much  as  30  mv.  In  addition,  the  DC  components  of  the  perturbation 
and  response  signals  were  part  of  the  input  to  the  ADC  channels  while 
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only  the  AC  components  are  of  interest  from  the  standpoint  of  analysis. 

The  choice  of  AC  coupling  in  the  set-up  of  the  HP5420  is  supposed 
to  solve  the  latter  difficulty  by  eliminating  the  DC  component  of  the 
signal.  However,  in  practice,  the  choice  of  AC  coupling  did  not 
eliminate  the  offset  potential;  in  fact,  it  seemed  to  exacerbate  the 
problem.  Thus,  the  use  of  the  analyzer's  most  sensitive  100  mv  range 
was  precluded  since  the  combination  of  the  AC  signal  with  DC  offset 
caused  the  ADC  to  overflow. 

Three  grounds  were  considered  in  detsririining  the  origin  of  the 
offset  potentials:  earth  ground,  power  ground  and  circuit  or  virtual 
ground.  Although  one  normally  assumes  earth  and  power  ground  to  be 
identical,  a  several  hundred  millivolt  difference  was  found  in  our 
laboratory.  Several  virtual  grounds  were  also  found  to  be  dissimilar. 
For  example,  merely  connecting  the  virtual  ground  on  the  potentiostat 
to  the  virtual  ground  of  the  ADC  caused  the  ADC  to  overflow  on  its  most 
sensitive  100  mv  range.  Since  the  corroding  interface  is  maintained  at 
the  virtual  ground  of  the  potentiostat,  it  is  clear  that  ground  loop 
currents  and  the  associated  offset  potentials  are  a  logical  consequence 
of  these  disparate  ground  potentials. 

Conventional  isolation  techniques  were  not  successful  in  eliminating 
the  voltage  offsets  or  were  accompanied  by  unacceptable  side  effects. 
Canton  point  grounding/  for  example,  reduced  the  offset  potentials  only 
slightly.  Because  of  the  impedance  associated  with  capacitors  and  in- 
ductors, both  capacitor  and  transformer  coupling  would  have  introduced 
artifact  over  some  range  of  frequency. 
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Optical  isolation  proved  to  offer  a  novel  yet  practical  solution 
to  this  dilemma.  An  optical  isolation  circuit  was  designed  and  built. 
When  used  between  the  noise  source  and  input  to  the  potentiostat,  offset 
potentials  were  eliminated.  The  circuit  design  and  operation  of  the 
optical  coupler  is  described  in  Appendix  B. 
Frequency  Resolution 

A  second  major  area  of  difficulty  in  creating  the  AC  impedance 
system  based  on  digital  signal  analysis  was  caused  by  a  limitation  of 
the  signal  analyzer  itself.  When  operated  in  the  transfer  function  mode, 
the  HP5420  creates  ensenbles  of  digitized  data  from  the  analog  signals 
injected  into  its  two  ADC  channels.  Each  ensemble  of  data  is  transformed 
into  256-element  array  in  frequency  domain  via  the  FFT  algorithm. 
Dividing  the  array  coming  from  channel  2  by  the  array  coming  from 
channel  1  yields  the  transfer  function  which  in  the  case  of  these  ex- 
periments is  the  electrode  impedance.  Once  impedance  data  have  been 
collected  for  a  particular  range  of  frequency,  they  may  either  be  stored 
on  tape  as  real,  imaginary,  frequency  triples  of  data,  used  directly  for 
display  in  a  variety  of  common  graphical  formats  on  the  integral  CRT  of 
the  HP5420,  or  be  transferred  to' 'the  HP9845  for  storage  on  floppy  disk. 

One  limitation  of  the  analyzer  in  the  study  of  electrode  impedance 
is  a  consequence  of  frequency  resolution.  Once  a  range  of  frequency 
analysis  has  been  selected,  the  analyzer  divides  the  range  into  N  =  256 
equally  spaced  frequency  intervals.  The  width  of  a  single  interval  thus 
defines  the  uncertainty  in  frequency,  Af ,  for  that  range,  and  Af  is 
always  l/256th  of  the  full  scale  value  of  frequency.  Although  at  the 
upper  value  of  frequency  in  the  range  the  percent  error  given  by 


56 
lOOxAf/f  is  approximately  +0.4%,  it  becomes  +4%  one  decade  below 
the  top  and  +  40%  two  decades  below  the  top.  In  the  limit,  the  lowest 
frequency  interval  contains  all  frequencies  between  0  and  l/256th  of  the 
full-scale  frequency. 

Since  the  percent  error  of  a  frequency  measurement  is  thus  inversely 
proportional  to  the  frequency  at  which  the  measurement  is  made,  it  is 
called  1/f  error  in  the  technical  literature.  The  upper  decade  of  fre- 
quency contains  approximately  225  of  the  256  frequency  intervals  which 
is  another  illustration  of  why  lower  frequencies  are  resolved  so  poorly. 
Figure  3.4  shows  how  the  frequency  resolution  changes  as  a  function  of 
frequency  for  various  ranges  of  analysis. 

Work  with  simulated  electrodes  suggests  that  three  decades  of 
frequency  are  useful  in  characterizing  electrodes,  and  for  real  electro- 
chemical interfaces,  at  least  five  decades  are  needed  if  the  appropriate 
range  of  analysis  is  not  known  initially.  Since  only  error  less  than 
+4%  was  considered  acceptable,  it  was  decided  to  analyze  over  consecu- 
tive decades  of  bandwidth  to  improve  the  low  frequency  resolution.  The 
shaded  region  of  Figure  3.4  depicts  the  error  envelope  when  data  from 
five  successively-measured  ranges  are  tied  together  discarding  low 
resolution  overlapping  data. 

Since  it  is  not  possible  to  either  store  or  display  a  connected  set 
of  data  from  sequential  runs  on  the  HP5420,  the  HP9845  performs  this 
function  on  sets  of  data  previously  stored  on  floppy  disk.  A  schematic 
illustration  of  this  data- tying  exercise  is  shown  in  Figure  3.5.  The 
sequences  of  commands  necessary  to  set  up  the  HP5420,  make  a  run  for  a 
particular  frequency  range,  store  the  data  for  that  run  and  to  repeat 


57 


>! 


"8.3J5 

nj  en  •v 

§1 

©w8; 

£     >   rH 

(T3  -H    J-l 

!h  m  © 

&§° 
§£g 

ffJSs 

m  ^  o 
en 

G   CD   J-l 


& 


M  ©  u 
o  c  © 

J* 

U  -d  © 


<4-< 


Sri 

©  ©  j 

^  s 

en  3  S 

(0  w  u 

w  cu  tn 

C  d  g  w 

©   0   3  -M 
U  -H  tn  C 

a 


ft   M 


I 


H0dH3  !N30H3d 


58 


bs 


^ 


T3 


3 


M    ill    CIH 


59 
the  sequence  for  four  subsequent  decades  of  frequency  were  written  as 
command  files  which  could  be  executed  by  the  HP9845.  The  final  step  in 
command  files  of  this  type  is  a  data-tying  step  which  consolidates  the 
five  individual  data  sets,  discarding  low  resolution  overlapping  data. 
This  large  data  set  which  consists  of  greater  than  1130  individual  points 
is  then  stored  on  floppy  disk  for  subsequent  manipulation  or  graphical 
portrayal.  The  command  file  CQMCEL,  which  controls  the  HP5420  in  the 
acquisition  and  tying  of  data,  and  other  command  files  are  described  in 
more  detail  in  Appendix  D. 
ADC  Resolution — Amplitude  Quantization  Error 

The  HP5420  digitizes  the  analog  voltage  signals  with  twelve-bit 
analog-to-digitizer  converters.  Since  one  bit  is  used  to  indicate 
polarity,  the  converter  is  able  to  resolve  a  full-scale  voltage  reading 
into  2   or  2048  discrete  voltage  levels.  Since  the  most  sensitive 
range  of  the  HP5420  is  100  mv  full-scale,  the  best  that  the  HP5420  can 
resolve  is  about  50  yv. 

Although  investigators  of  anodic  films  have  used  AC  signals  of 
50  mv  p-p  (23) ,  the  general  consensus  of  electrochemists  seems  to  be 
that  one  should  not  perturb  an  electrochemical  interface  with  a  signal 
greater  than  5  mv  p-p  if  nonlinear  effects  are  to  be  totally  avoided. 
The  HP5420  would  digitize  such  a  signal  by  dividing  positive  and  negative 
voltage  excursions  of  2.5  mv  into  50  discrete  voltage  levels,  respec- 
tively. Such  resolution  is  not  very  good  for  measurements  which  must  be 
used  in  mathematical  analysis.  Since  the  FFT  is  a  linear  operation, 
the  percent  error  associated  with  a  time  domain  signal  is  carried  over 
into  the  frequency  domain  as  an  equivalent  percent  error  in  magnitude. 
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There  are  a  number  of  possible  ways  of  dealing  with  this  amplitude 
quantization  error  of  the  HP5420.  The  first  is  to  accept  the  resultant 
penalty  in  data  quality.  Gross  approximation  of  voltage  values  will, 
of  course,  result  in  frequency  domain  data  scatter  but  will  not  necess- 
arily destroy  the  character  of  graphical  portrayals.  The  second 
possibility  is  to  use  a  higher  amplitude  signal,  accepting  the  risk  of 
non-linear  behavior.  The  third  possibility  is  to  amplify  the  signal 
before  injecting  it  into  the  ADC,  accepting  the  deterioration  in  signal- 
to-noise  ratio  brought  about  by  the  additional  amplifier  stage.  To 
satisfy  such  a  requirement,  the  optical  isolators  were  equipped  to 
provide  a  gain  of  10X,  if  desired. 

All  of  the  above  techniques  were  tried.  In  the  investigations  of 
real  electrochemical  systems  described  in  the  next  chapter,  it  was 
possible  to  use  signals  of  higher  amplitude  without  apparent  ill-effect. 
In  real  systems,  however,  the  electrode  impedance  changes  by  orders  of 
magnitude  during  the  formation  or  dissolution  of  adherent  corrosion 
product  films.  Thus,  for  a  given  amplitude  of  voltage  perturbation, 
the  current  response  could  vary  by  orders  of  magnitude — requiring 
appropriate  ranging  of  the  current-to-voltage  converters.  To  assure 
that  the  current  monitoring  ADC  was  not  subjected  to  either  overflow  or 
underflow  conditions,  one  had  to  monitor  current  levels  prior  to  each 
run  and  set  the  range  of  the  current-to-voltage  converters  accordingly. 
Verification  of  AC  System  Capabilities 

To  lend  credibility  to  the  assertion  that  the  AC  system  described 
herein  can  be  used  to  reliably  characterize  an  electrochemical  inter- 
face, experiments  were  first  run  on  simulated  electrodes  consisting  of 
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two  resistors  and  one  capacitor.  Since  the  double-layer  capacitance 

for  an  electrochemical  interface  is  widely  reported  to  be  on  the  order 

2 

of  20  W/cm   ,  an  available  capacitor  with  9.94  yF  capacitance  was 

considered  representative  of  the  double  layer  and  was  used  in  each  of 
the  simulated  electrodes.  Two  values  of  polarization  resistance  were 
used:  996ft  and  49. 7ft,  simulating  high  and  low  values  of  polarization 
resistance,  respectively. 

To  examine  the  capability  of  the  system  to  render  values  for  this 
equivalent  polarization  resistance,  R  ,  and  the  equivalent  double-layer 
capacitance,  C_,  when  the  solution  resistance,  R  ,  varies  over  a  wide 
range,  calculations  were  first  performed  to  determine  what  a  reasonable 
upper  value  for  R  would  be  in  an  electrochemical  cell  with  a  low 
conductivity  electrolyte.  As  described  in  the  next  chapter,  electro- 
chemical experiments  were  performed  in  the  PARC  K47  Corrosion  Cell  using 
both  cylindrical  specimens  and  the  flat  specimen  holder.  If  one  uses 
the  Luggin  Probe  tip  diameter  which  is  2.5  mm  and  the  flat  corroding 
sample  diameter  of  10.7  mm,  and  if  the  separation  of  Luggin  probe  and 
sample  is  1  mm,  one  determines  the  cell  constant,  K,  to  be  204  cm. 

Given  the  equation 

A  =  K  c  (3.3) 

where  A  is  conductivity,  K  is  the  cell  constant  and  a   is  the  specific 
conductivity,  the  resistance  R  is  given  by 

Rs  =  1/K  a  (3.4) 

Thus,  if  a  low  conductivity  solution  with  ft  =   10  ft   cm   were  put 
into  this  cell,  it  can  be  shown  that  R  =  4900ft.  Accordingly,  discrete 
values  of  resistance  between  9.97ft  and  9990ft  were  chosen  to  represent 
an  appropriate  range  of  R  in  the  simulated  electrodes. 
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A  listing  of  the  component  values  of  the  various  simulated 

electrodes  is  given  in  Table  3-1.  As  can  be  seen  from  the  table,  the 

simulated  electrodes  fall  into  two  groups,  one  in  which  R  is  996ft  and 

R  varies  between  9.97  and  9999ft,  and  the  second  in  which  R_  is  49.7ft 
s  P 

and  R  varies  as  above.  The  simulated  electrode  experiments  were  first 
run  by  applying  the  BLWN  voltage  signal  directly  across  the  three- 
component  network  and  measuring  the  current  response  as  the  voltage  drops 
across  R  rather  than  through  the  potentiostat.  See  Figure  3.6.  The 
reason  for  this  procedure  was  to  demonstrate  the  best  capability  of  the 
signal  analyzer  without  the  potentially  complicating  influences  of  the 
potentiostat.  Experiments  with  a  single  simulated  electrode  comparing 
operation  of  the  AC  system  with  and  without  the  potentiostat  and  optical 
isolators  and  as  a  function  of  signal  amplitude  are  described  in 
Appendix  C.  These  experiments  demonstrate  that  the  signal-to-noise 
ratio  is  adversely  affected  by  the  presence  of  the  potentiostat  but  that 
the  character  of  the  data  plots  is  not  changed. 

Typical  data  illustrating  all  five  graphical  formats  are  shown  in 
Figures  3.7  -  3.9  for  simulated  electrode  "G".  Theoretical  curves,  as 
depicted  by  the  solid  lines,  are  determined  by  using  the  calibrated 
component  values  for  simulated  electrode  G  to  solve  Equations  (2.13) 
and  (2.14)  for  the  real  and  imaginary  components  of  impedance.  In  each 
of  the  five  plots  of  Figures  3.7  -  3.9,  one  observes  deviation  of  the 
experimental  data  points  from  the  theoretical  curve  at  low  values  of 
frequency.  Data  scatter  at  low  frequencies  is  attributed  to  1/f  error 
as  discussed  earlier.  However,  one  also  observes  an  apparent  systematic 
deviation  from  the  predicted  behavior  at  low  frequencies. 
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Figure  3.6     Schematic  illustration  of  three-element  network  connections 
to  the  AC-system. 
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Table  3-1  Carponent  Values  of  Simulated  Electrodes 


Identifier 

9.97 

R  (fi) 

P 

996 

9.94 

R  /R 

s'  p 

D 

10.0  x  10"^ 

49.9  x  io":: 
ioi  x  io":: 
476  x  io":: 

992  x  IO"-* 

E 

49.7 

996 

9.94 

F 

100.8 

996 

9.94 

G 

474.0 

996 

9.94 

H 

989.0 

996 

9.94 

I 

4520.0 

996 

9.94 

4.54 

J 

9990.0 

996 

9.94 

10.0      -. 
201  x  10  ^ 
998  x  10"J 

N 

9.97 

49.7 

9.94 

0 

49.6 

49.7 

9.94 

P 

100.8 

49.7 

9.94 

2.03 

Q 

474.0 

49.7 

9.94 

9.54 

R 

991.0 

49.7 

9.94 

19.3 

S 

4520.0 

49.7 

9.94 

90.9 

T 

9990.0 

49.7 

9.94 

201 
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Cq  =  9.9  4  uF 


COMPLEX  PLANE  ANALYSIS 
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Figure  3.7   (A)  Simulated  electrochemical  interface  consisting 
of  discrete  electronic  components  with  the  values 
shown.   (B)  Complex  plane  plot  of  the  impedance  of 
the  network  shown  in  (A) .  Points  represent  values  at 
discrete  frequencies  as  determined  by  the  FFT;  solid 
line  depicts  analytically  predicted  relationship. 
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Figure  3.8  Pohlman-Smyrl  portrayal  of  the  data  obtained  from 
the  simulated  electrode  of  Figure  3.6  (A) .  Points 
represent  values  at  discrete  values  of  frequency; 
solid  lines  depict  analytically  predicted  relation- 
ships. 
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Figure  3.9     Bode  portrayal  of  impedance  data  for  the 
network  of  Figure  2.6    (A). 
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In  the  complex  plane  plot,  this  deviation  is  manifested  with 
experimentally  determined  points  having  lower  absolute  values  of  real 
and  imaginary  components  than  theoretically  predicted.  Even  more 
striking  is  the  fact  that  the  experimentally-determined  impedance  takes 
on  positive  imaginary  values  at  low  frequencies  thus  exhibiting  the 
characteristics  of  a  network  containing  inductance,  which  this  circuit 
does  not  contain. 

If  we  now  consider  the  complex  plane  plots  of  other  dummy  cells 
(Figures  3.10  and  3.11),  we  can  observe  the  behavior  of  this  apparent 
systematic  error  as  the  values  of  the  network  resistances  are  changed. 
The  series  of  plots  in  Figure  3.10  exhibits  the  effect  of  increasing 
the  series  resistance,  R  ,  from  9.97ft  to  9990ft  while  R  and  C^  are 
held  at  996ft  and  9.94  uF,  respectively.  In  the  series  of  Figure  3.11, 
R  is  again  varied  from  9.97ft  to  9990ft  while  C^   is  maintained  at 

9.94  yF  and  R  is  held  at  49.7ft.  Since  the  diameter  of  the  semi- 

P 

circle  is  determined  only  by  R  ,  it  remains  constant  throughout  the 
series.  The  frequency  at  the  apex  of  the  semicircle  is  shown  by 
Equation  (2.17)  to  be  a  function  only  of  R  and  CL  and  therefore  also 

XT 

remains  constant  throughout  the  series.  The  only  supposed  effect  of 
changing  R  is  to  shift  the  constant  diameter  semicircle  along  the  real 
axis.  In  these  series,  this  is  accomplished  by  selecting  the  appropriate 
range  of  the  abscissa  without  changing  the  scale. 

To  explain  the  behavior  of  the  complex  plane  plot  series  in  Figure 
3.10,  one  must  be  aware  that  CL  acts  as  a  short  circuit  bypassing  R 
at  high  frequencies  and  as  an  open  circuit  at  low  frequencies.  At  high 
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Figure  3.10  Complex  plane  plots  of  simulated  electrode  impedance,  R  =  996H 
(A)  Dummy  Cell  D   (B)  Dummy  Cell  E  (C)  Dummy  Cell  G 
(D)  Dummy  Cell  H  (E)  Dummy  Cell  I   (F)  Dummy  Cell  J 
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Figure  3.11  Complex  plane  plots  of  simulated  electrode  impedance,  R  =  9.9"R 
(A)  Dummy  Cell  N  (B)  Dummy  Cell  0  (C)  Dummy  Cell  P 
(D)  Dummy  Cell  Q  (E)  Dummy  Cell  R  (F)  Dummy  Cell  S 
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frequencies,  therefore,  the  only  impedance  in  the  circuit  is  due  to 

R  .  Since  the  rms  voltage  drop  across  the  circuit  is  set  at  a  level 

which  mnimizes  the  amplitude  quantization  error,  the  quantization 

error  in  the  current  measurement  is  also  rninimized.  The  high  frequency 

data  are  therefore  least  susceptible  to  data  scatter  due  to  this  error 

source.  At  low  frequencies,  the  voltage  drop  across  the  network  is 

divided  between  R  and  R  .  When  R  is  small  with  respect  to  R  ,  the 
s     p        s  P 

voltage  drop  across  R  (used  to  measure  current  flow  through  the  net- 
work) is  small  and  subject  to  amplitude  quantization  error.  This 
explains  why  the  data  scatter  increases  as  a  function  of  frequency  when 

R/R  is  small. 
s    p 

The  apparent  systematic  error  present  at  low  frequencies  in  Figure 
3.7  may,  in  fact,  be  a  manifestation  of  the  low  frequency  quantization 
error  described  in  the  previous  paragraph.  When  viewed  as  part  of  the 
plot  series  of  Figure  3.10,  it  can  be  seen  that  this  error  disappears 
when  R  /R  becomes  greater  than  1.  There  is  definitely  a  systematic 
error  at  low  frequencies  in  the  plot  series  of  Figure  3.11,  however. 
The  apparent  inductive  character  of  the  network  as  evidenced  by  the 
positive-going  loop  is  also  apparently  affected  by  the  ratio  of  R/R' 
In  the  absence  of  a  more  plausible  explanation  for  its  occurrence,  the 
loop  is  presently  considered  an  anomalous  characteristic  of  the  49. 7^ 
resistor.  Hcwever,  its  presence  indicates  that  there  is  evidence,  even 
in  dummy  cells,  for  the  so-called  "mysterious  inductive  loops"  mentioned 
by  Mansfeld  which  occur  in  many  electrochemical  interfaces. 

The  magnitude  of  R  has  another  effect  on  the  results.  As  shown 
in  Figure  3.6,  the  voltage  drop  across  R  is  used  to  determine  the 
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current  flow  through  the  network  which  is  used  in  turn  to  determine 
the  transfer  function.  The  magnitude  of  the  transfer  function  deter- 
mined by  the  analyzer  is  thus  smaller  than  the  impedance  by  a  factor  of 

the  resistance,  R  .  Since  the  transfer  function  has  to  be  scaled  by  the 

'  s  J 

values  of  R  to  determine  the  impedance,  any  scatter  in  the  transfer 
function  data  is  also  scaled  by  the  same  factor.  This  amplification 
of  scatter  as  a  function  of  scaling  factor  (magnitude  of  R  )  is  evident 
in  both  plot  series. 

Another  striking  feature  of  both  Figures  3.10  and  3.11  is  the 
discontinuity  in  the  semicircular  character  present  in  the  data  at  fre- 
quencies immediately  below  256  Hz.  This  gap  is  attributed  to  instru- 
mental artifact  due  to  the  characteristic  of  a  low-pass  filter.  As 
described  in  Appendix  A,  low  pass  filters  are  used  to  condition  the 
analog  signal  to  prevent  "aliasing"  with  the  sampling  signal.  In  the 
HP5420A,  either  one  of  two  filters  is  used  depending  on  the  selected 
bandwidth  of  analysis.  The  filter  handling  the  lower  frequency  analysis 
ranges  is  employed  when  the  range  of  analysis  goes  to  256  Hz  or  below. 
Further  credibility  is  given  to  this  argument  when  one  observes  that  the 
semicircular  character  is  restored  at  frequencies  well  below  256  Hz. 
Rather  than  being  a  fault  of  the  individual  instrument,  this  behavior 
was  also  observed  in  independent  measurements  made  on  dummy  cells  at 
Dow  Chemical  Company  (55) . 

Figures  3.8  and  3.9  are  portrayals  of  the  data  of  Figure  3.7 
in  the  Pohlman-Smyrl  and  Bode  formats,  respectively.  In  the  Pohlman- 
Smyrl  plots,  one  observes  scatter  of  both  the  high  and  low  frequency 
data  in  the  real  versus  imaginary  frequency  portrayal.   (Note  horizontal 
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and  vertical  scatter  of  data  points  in  Figure  3.8A. )  This  phenomenon 
is  due  to  the  fact  that  the  imaginary  component  becomes  zero  at  both 
high  and  low  frequencies.  Since  the  data  are  quantized,  zero  is  never 
actually  reached,  and  amplification  of  these  near-zero  values  by  the 
frequency  leads  to  this  scatter.  This  argument  is  substantiated  by 
Figure  3.8  in  which  one  observes  no  scatter  in  the  high  frequency  data 
(in  which  quantization  error  has  been  attenuated  by  dividing  by  fre- 
quency) ;  however,  the  quantization  error  of  the  low  frequency  data  has 
been  amplified  by  dividing  by  frequencies  less  than  1. 

The  Bode  analysis  of  Figure  3.9  shows  conclusively  that  the  low 
frequency  data  suffer  from  a  systematic  rather  than  a  random  error. 
The  cause  of  this  deviation  of  the  experimental  data  from  theoretical 
predictions  is  assumed  to  be  due  to  the  actual  low  frequency  behavior 
of  the  individual  components. 

Summary  of  System  Development 
This  chapter  has  dealt  with  the  creation  of  an  AC  impedance 
measurement  system  based  on  digital  signal  analysis.  Chief  develop- 
mental problems  involved  equipment  interfacing  and  coping  with  two 
types  of  error  associated  with  digital  signal  processing,  namely  1/f 
error  and  amplitude  quantization  error.  Tests  of  the  digital  signal 
analyzer  and  associated  equipment  on  three  component  simulated  electrode 
networks  as  described  her  and  in  Appendix  C  verify  that  the  signal 
analysis  approach  combined  with  appropriate  analysis  techniques  can 
return  the  values  of  the  network  components  with  acceptable  levels  of 
accuracy.  These  tests  also  reveal  various  ways  1/f  and  amplitude 
quantization  errors  can  manifest  themselves. 


CHAPTER  IV 
APPLICATION  OF  DIGITAL  SIGNAL  ANALYSIS  TO  A  CORRODING  ELECTRODE 

As  a  demonstration  that  the  electrode  impedances,  as  determined 
by  digital  signal  analysis  techniques,  can  be  used  to  characterize 
corroding  interfaces,  a  series  of  experiments  was  conducted  on  430 
stainless  steel  in  IN  sulfuric  acid.  This  alloy/environment  combin- 
ation was  chosen  because  it  is  familiar  to  corrosion  researchers,  has 
been  thoroughly  characterized  with  DC  polarization  methods  and  exhibits 
active,  passive  and  transpassive  behavior  depending  on  the  polarization 
potential. 

The  system  of  430  stainless  steel  in  IN  sulfuric  acid  has  been 
selected  by  the  ASTM  to  be  used  in  Standard  Recommended  Practice  (SRP) 
G  5-72  (56)  as  a  means  of  checking  technique  and  instrumentation  for 
potentiostatic  and  potenticdynamic  anodic  polarization  measurements. 
When  subjected  to  either  potentiostatic  or  potentiodynamic  anodic 
polarization,  the  resultant  potential  versus  log  current  plots  exhibit 
the  behavior  shown  in  Figure  4.1.  Being  so  well  characterized,  this 
system  offers  the  opportunity  to  illustrate  the  sensitivity  of  the  AC 
technique  in  distinguishing  among  the  various  interface  conditions. 

The  experimental  apparatus  outlined  in  SRP  G  5-72  for  performing 
potentiostatic  or  potentiodynamic  scans  was  used  with  a  few  exceptions. 
A  Princeton  Applied  Research  (PAR)  K47  Corrosion  Cell  System  was  used 
for  both  the  potentiodynamic  scan  and  for  the  AC  impedance  measurements. 
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Figure  4.1  Standard  potenticdynandc  anodic  polarization  plot  for  type 
430  stainless  steel  in  N  H2S04  at  30°C  with  a  potentio- 
dynamic  scan  rate  of  0.6  volts/hour.  After  ASTM  SRP  G5-72 


76 
The  PAR  cell  system  consists  of  a  1  liter  flask  equipped  with  ground 
glass  ports  for  the  test  specimen,  purge  gas  vent  and  entry,  salt 
brindge/reference  electrode  and  two  high  density  graphite  rods  for 
counter  electrodes. 

The  test  specimen  was  a  cylinder  with  a  length  of  0.5  in.  and  a 

2 

diameter  of  0.30  in.  resulting  in  a  total  exposed  surface  area  of  5.17  cm  . 

Electrical  contact  to  the  specimen  is  made  through  a  threaded  steel  rod 
within  a  glass  tube  which  is  compression  sealed  against  the  upper  surface 
of  the  cylindrical  sample.  A  PAR  Model  K77  Saturated  Calomel  Electrode 
was  inserted  into  the  salt  bridge  tube.  Both  the  reference  electrode 
and  tube  are  terminated  with  a  Vycor  R  frit,  permitting  ionic  continuity 
while  minimizing  ionic  exchange.  During  this  operation,  the  bridge  tube 
was  filled  with  saturated  KCl  solution.  The  reference  electrode  was 
connected  to  the  high  impedance  electrometer  of  the  potentiostat. 

The  electrolyte  was  purged  with  nitrogen  gas  for  at  least  15 
minutes  prior  to  the  insertion  of  the  sample  and  purging  was  continued 
throughout  the  potentiodynamic  run  and  the  conduction  of  AC  tests.  The 
nitrogen  gas  was  the  exhaust  from  a  4000  SCF  liquid  nitrogen  vessel 
with  a  purity  specified  at  99.99%.  Since  the  major  impurity  in  the 
liquid  nitrogen  is  H-O,  there  is  no  significant  contribution  to  contamin- 
ation. Because  of  the  low  heat  capacity  of  nitrogen,  there  was  no 
detectable  change  in  solution  temperature  as  a  result  of  contact  with 
the  cold  nitrogen  gas.  The  cell  solution  was  stirred  constantly  using 
a  magnetic  stirrer. 

A  potentiodynamic  scan  made  a  1  mv/s  with  a  PAR  350  Corrosion 
Measurement  System  is  shown  in  Figure  4.2.  The  corrosion  potential  was 
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Figure  4.2  Experimentally  determined  potentiodynamic  anodic  polarization 
plot  for  type  430  stainless  steel  in  N  H2SO4  at  22°C  with 
N2  purge  gas  and  a  scan  rate  of  1  mV/s. 
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determined  to  be  -0.571  V  vs  SCE  with  the  scan  being  made  from  -0.621  V 
to  +1.600  V.  Solution  resistance  was  determined  to  be  0.29ft  and  polar- 
ization resistance  of  1.1ft.  The  potentiodynamic  behavior  of  Figure  4.2 
exhibits  some  differences  from  the  reference  plot  of  Figure  4.1.  These 
are  attributed  to  the  differences  in  scan  rate  and  the  fact  that 
nitrogen  rather  than  hydrogen  purge  gas  was  used.  Since  the  purpose 
of  the  AC  experiments  is  to  illustrate  impedance  characterization  of 
the  metal  electrode  under  conditions  of  active,  passive  and  transpassive 
behavior,  the  minor  differences  between  Figures  4.1  and  4.2  are  of  no 
consequence. 

Upon  completion  of  the  potentiodynamic  scan,  the  specimen  was 
repolished  and  placed  into  fresh  solution.  A  PAR  173  potentiostat  was 
used  to  set  DC  potentials  in  increments  of  200  mV  anodic  to  the  corrosion 
potential.  A  BLWN  signal  of  approximately  40  mv  p-p  was  fed  to  the 
summing  junction  while  the  respective  DC  potential  was  maintained  by 
the  potentiostat.  See  the  wiring  schematic  of  Figure  4.3.  The  figures 
which  follow  are  the  complex  plane  plots  of  the  impedance  behavior  at 
the  respective  values  of  anodic  potential. 

At  the  corrosion  potential  (Figure  4.4) ,  the  complex  plane  plot 
resembles  the  semicircular  form  of  the  three-element  network  model  at 
intermediate  frequencies  but  exhibits  a  second  semicircular  lobe  at 
lower  frequencies.  One  notes  that  the  real  axis  intercept  occurs  at 
about  0.3  ohms  while  the  uncompensated  resistance  measurement  in  the 
DC  polarization  run  (Figure  4.2)  listed  as  0.29  ohms.  Since  the 
Luggin  probe  was  moved  between  the  potentiodynamic  scan  and  the  AC 
run,  this  should  be  regarded  as  good  agreement  for  solution  resistance. 
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Figure  4.3  Schematic  illustration  of  wiring  for  AC  impedance 
experiments  on  430  stainless  steel. 
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Figure  4.4  Complex  plane  plot  of  electrode  inpedance  of  430  stainless 
steel  in  N  H^SO.  at  the  corrosion  potential. 
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If  one  fits  a  semicircle  to  the  first  lobe  of  Figure  4.4,  the  value 

for  R  in  a  three-element  network  model  is  found  to  be  about  .09  ft, 
P 

more  than  an  order  of  magnitude  below  the  polarization  resistance 
determined  by  the  DC  polarization  method. 

Although  the  complex  plane  method  cannot  determine  the  value  of 
CL  exactly  unless  the  frequency  at  the  apex  of  the  semicircle  is  known, 
its  value  can  be  bracketed  by  viewing  the  range  of  frequency  over  which 
data  were  gathered.  Using  this  method  it  can  be  shown  that  the  value 
of  CL  lies  between  10  and  10  yF.  Fittings  this  range  of  C^  values  to 

the  plot  of  phase  angle  vs  frequency  (see  Figure  4.5)  gives  a  good 

5 
match  when  CL  is  10  \jF. 

To  evaluate  two-lobe  behavior  a  more  complicated  model  than  the 

three-element  network  is  necessary.  Since  a  passive  film  is  expected 

on  this  material  at  higher  polarization  potentials,  it  was  reasoned 

that  an  extremely  thin  film  might  also  exist  at  the  corrosion  potential. 

A  network  model  similar  to  that  proposed  by  Richardson,  Vfood  and  Breen  (37) 

was  therefore  considered.  See  Figure  4.6.  Although  more  complicated 

than  the  three-element  network,  the  impedance  of  this  model  can  also 

be  evaluated  analytically  as  a  function  of  frequency  and  element  values. 

A  BASIC  computer  program,  GRAFIT,  was  written  to  accept  any  value  of 

R  ,  R  ,  Rp,  CL,  CL  and  to  plot  the  resultant  impedance  over  a  range  of 

frequency  from  0.25  to  25000  Hz.  See  Appendix  D.  By  using  the  values 

for  R  ,  CL,  and  R  already  determined,  and  experimenting  with  various 

values  of  CL  and  R_,  the  fit  of  Figures  4.7  was  achieved.  Although  not 

a  perfect  fit  over  all  ranges  of  frequency,  one  may  be  confident  that 

all  element  values  are  within  the  right  order  of  magnitude. 
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Figure  4.5  Coiplex  plane  plot,  (A)  and  phase  angle  vs.  frequency 

plot,  (B)  of  electrode  impedance  of  430  stainless  steel 
maintained  at  the  corrosion  potential.  Solid  lines 
depict  fit  of  an  assumed  three-element  network  where 


R  "=  .295^, 
s 


=  .088ft,  and  CL  =  0.1  F. 
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Figure  4.6  Five  element  network  model  representing  the  corrosion  of 


430 


stainless  steel  in  N  H-SOj. 
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Figure  4.7 


Caiplex  plane  plot,  (A)  and  Bode  plots  (B)  and  (C)  of 
electrode  impedance  of  430  stainless  steel  in  N  H^SDq 
at  the  corrosion  potential.  Solid  lines  depict  fit  of 
five-element  network  model  of  Figure  4.6  where  Eg  =  .295ft, 


R  =  0.088ft,  Rp  =  0.07ft,  (^  =  0.1  F  and  Cp 


=  3  F. 
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The  magnitudes  of  the  element  values  are  startling  in  view  of 
both  the  findings  of  the  DC  polarization  experiment  and  of  accepted 
values  of  double-layer  capacitance.  Rationalization  of  these  findings 
is  deferred  until  after  the  consideration  of  electrode  impedance  at 
other  values  of  DC  polarization  potential.  Another  puzzling  aspect  of 
the  complex  plan  plot  is  the  appearance  of  a  positive  imaginary  at 
high  frequencies.  This  feature  of  the  experimental  data  is  attributed 
to  artifact  from  the  optical  coupling  circuits  as  discussed  in  the 
previous  chapter.  Consideration  of  the  high  frequency  tail  in  Figure 
4.7  (C)  also  lends  credibility  to  this  explanation.  The  apparent  data 
mismatch  at  the  high  frequency  real  axis  intercept  is  believed  to  be 
caused  by  the  low  pass  filter  in  the  vicinity  of  256  Hz,  an  artefact 
also  discussed  previously. 

The  impedance  of  the  stainless  steel  in  the  active  region  is 
considered  next.  The  complex  plane  impedance  plot  shown  in  Figure  4.8 
was  made  at  a  polarization  potential  of  about  -300mv  vs  SCE.  It  can  be 
seen  that  this  plot  is  similar  to  the  one  made  at  the  corrosion  potential 
except  that  there  is  much  more  scatter  in  the  low  frequency  data  which 
defines  the  second  semicircular  lobe.  The  scatter  in  this  case  is 
attributed  to  the  instability  of  what  has  been  modeled  as  a  thin  passive 
film.  A  reasonably  good  match  of  experiment  and  model  is  obtained  with 
element  values  shown  in  Figure  4.9.  The  decrease  in  Rp  is  to  be 
expected  in  the  active  corrosion  region. 

In  the  passive  region,  the  behavior  changes  drastically  as 
illustrated  by  Figure  4.10.  However,  the  behavior  can  still  be 
predicted  with  the  same  model.  As  shown  in  Figure  4.11,  a  reasonably 
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Figure  4.8  Complex  plane  plot  of  electrode  impedance  of  430  stainless 
steel  in  N  H2S04  polarized  into  the  active  corrosion  region 
at  a  polarization  potential  of  -300  mV  vs.  SCE. 
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Complex  plane  plot  (A)  and  Bode  plots  (B)  and  (C)  of 
electrode  impedance  of  430  stainless  steel  in  N  H2SO4 
at  -300  mV  vs.  SCE.  Solid  lines  depict  fit  of  five- 
element  network  model  of  Figure  4.6  where  Rs  =  0.295ft, 
Rp  =  0.1ft,  Rp  =  0.07ft,  CD  =  0.1  F,  and  CF  =  3  F. 
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^Figure  4.10  Complex  plane  plot  of  electrode  inpedance  of  430  stain- 
less steel  in  N  H2SO4  polarized  into  the  passive  region 
at  a  polarization  potential  of  +450  mV  vs.  SCE. 
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Fiaure  4.11 


Complex  plane  plot  (A)  and  Bode  plots   (B)  and   (C)  of 
electrode  impedance  of  430  stainless  steel  in  N  H2SO4 
at  +450  mV  vs.  SCE.  Solid  lines  depict  fit  of  five- 
element  network  where  CD  =  lOOOyF,  CF  =  lOOuF,  Rp  =  O.Sl, 
Rf  =  200fi,  and  Rg  =  O.3.Q. 
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good  match  is  obtained  by  increasing  R  slightly,  increasing  Rp 
dramatically  and  decreasing  both  CL  and  C„. 

Figures  4.12  and  4.13  illustrate  how  the  model  can  also  be  used 
to  describe  transpassive  behavior.  Here  one  notes  a  dramatic  decrease 
in  the  values  of  Rf  indicating  film  breakdown. 

The  difference  in  the  impedance  descriptions  of  a  corroding  metal 
electrode  at  the  corrosion  potential  (as  contrasted  with  the  active, 
passive  and  transpassive  potentials)  illustrates  the  sensitivity  of  the 
AC  impedance  method  to  changes  in  the  surface  conditions  of  the  inter- 
face and  especially  to  changes  in  the  protective  character  of  a  passive 
film.  While  the  changes  in  the  resistance  of  a  film  are  intuitive  and 
may  be  surmised  from  DC  polarization  data,  the  capacitive  character  of 
the  interface  cannot  be  determined  by  direct  current  methods. 

The  data  on  capacitance  provide  additional  descriptive  information 
about  the  nature  of  the  electrochemical  interface  at  a  particular 
instant  in  time.  The  fact  that  capacitance  values  of  a  corroding  electrode 
exhibit  drastic  variations  depending  on  polarization  potential  and  the 
fact  that  they  differ  from  accepted  values  of  double-layer  capacitance 
of  well-behaved  systems  on  dropping  mercury  electrodes  should  be 
considered  as  further  evidence  of  the  sensitivity  of  this  method  to 
the  condition  of  surface. 


91 


CO 
£ 

SL 
O 


>- 
a: 
< 

z 
i—i 

CD 
< 

2 


4.4 


3.3  - 


2.2   - 


1.1   - 


0 


- 

\ 

m 

—                  .  r 
/•" 

J 

/ 

0 

I 

2 

! 

i 
"••"i  •        „._ 

4                       5 

REAL     (Ohms) 


Figure  4.12  Carplex  plane  plot  of  electrode  inpedance  of  430  stainless 
steel  in  N  H2SO4  polarized  into  the  transpassive  region 
at  a  polarization  potential  of  1.300  V  vs.  SCE. 
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Figure  4.13  Cdnplex  plane  plot  (A)  and  Bode  plots  (B)  and  (C)  of 
electrode  inpedance  of  430  stainless  steel  in  N  H2S04 
at  a  polarization  potential  of  1.300  v  vs.  SCE. 


CHAPTER  V 
CnSICLUSIONS  AND  RECQMMEM5ATIC(NS  for  future  research 

Recapitulation:  Objectives  and  Premises 

The  specific  objectives  of  this  work  as  stated  in  Chapter  I 

were  (1)  to  assemble  an  in  situ  corrosion  monitoring  system  based 

on  digital  signal  analysis  using  off-the-shelf  commercially  available 

electronic  equipment;  and  (2)  to  demonstrate  the  capabilities  and 

limitations  of  such  a  system  in  characterizing  the  corrosion  of 

430  stainless  steel  in  IN  sulfuric  acid.  This  attempt  is  based  on 

the  premise  that  a  corroding  interface,  whether  active,  passive  or 

transpassive,  behaves  as  a  relaxed,  linear  time-invariant  system 

with  respect  to  dynamic  response  to  voltage  perturbations. 

The  extent  to  which  these  assumptions  are  valid  was  considered 

in  some  detail.  Relaxedness  is  probably  a  reasonable  assumption  if 

the  perturbation  signal  amplitude  is  kept  above  the  level  of  random 

system  noise.  Although  no  electrochemical  system  is  truly  linear 

over  an  extremely  broad  range  of  voltage,  behavior  over  small  enough 

voltage  excursions  can  be  considered  linear.  Time  invariance  is  also 

not  rigorously  valid  for  a  corroding  interface  since  passive  films 

may  grow  slowly  or  change  their  character  over  time.  However,  if 

the  period  of  measurement  is  short,  on  the  order  of  minutes,  the 

assumption  of  time  invariance  is  also  reasonable. 

In  comparing  the  proposed  corrosion  monitoring  system  based  on 

digital  signal  analysis  with  the  more  familiar  DC  polarization 
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techniques,  the  following  facts  and  observations  are  apropos.  DC 
methods  yield  a  corrosion  current  •which  is  related  to  a  corrosion 
rate.  There  is  good  correlation  between  this  electrochemically- 
determined  rate  and  weight-loss  data  for  systems  corroding  actively 
and  uniformly  over  the  entire  surface.  However,  the  corrosion  rate 
determined  by  DC  techniques  is  not  a  reliable  indicator  of  corrosion 
inhibitors.  In  such  systems,  which  represent  the  majority  of  materials 
which  exhibit  some  form  of  inherent  corrosion  resistance,  one  seeks  a 
parameter  or  combination  of  parameters  which  characterizes  the  state 
of  the  corroding  electrode  in  its  environment.  While  polarization 
resistance  or  corrosion  current  is  such  a  parameter,  it  does  not  by 
itself  give  an  accurate  picture  of  the  state  of  the  surface.  Further- 
more, the  imposition  of  a  DC  voltage  signal  on  the  interface  unquestion- 
ably alters  the  state  of  the  corroding  electrode  in  some  way,  if  only 
by  changing  the  concentration  of  adsorbed  ions. 

Alternating  current  techniques  offer  the  capability  of  being 
able  to  determine  capacitive  as  well  as  resistive  properties  of  the 
interface.  VJhile  there  is  no  apriori  guarantee  that  the  capacitance 
values  will  be  enough  to  completely  characterize  the  interface,  they 
are,  nevertheless,  additional  information  about  the  corroding  electrode. 
In  addition,  alternating  current  voltage  signals  of  appropriate  ampli- 
tude and  of  high  enough  frequency  will  have  little  or  no  permanent 
impact  on  the  state  of  the  interface. 

Motivated  by  this  logic,  one  seeks  a  method  of  determining  the 
frequency  response  of  a  corroding  electrode  to  an  alternating  current 
perturbation.  One  frequently-used  technique  is  to  perturb  the 


95 
interface  with  a  single  frequency  at  a  time,  using  a  lock-in  amplifier 
to  determine  the  response  signal  at  that  same  frequency.  This  approach 
provides  a  high  signal-to-noise  ratio,  but  has  the  disadvantage  of  being 
time-consuming,  a  factor  which  may  have  impact  on  the  assumption  of 
time  invariance  mentioned  previously. 

In  principle,  the  digital  signal  analysis  approach  overcomes 
all  of  these  difficulties.  A  time-dependent  signal  is  digitized  into 
a  N-sample  ensemble  whick  is  converted  into  an  N-channel  frequency 
spectrum  via  the  FFT  algorithm.  In  the  frequency  domain,  the  perturb- 
ation and  response  spectra  may  be  manipulated  algebraically  to  yield 
the  transfer  function,  or  in  this  case,  the  impedance  of  the  electro- 
chemical interface.  Analysis  of  the  impedance  may  then  yield  values 
of  equivalent  circuit  elements. 

None  of  the  aforementioned  concepts  are  new  or  unique  to  the 
fields  of  electrcKihemistry  or  corrosion.  Epelboin  and  coworkers  have 
been  prolific  in  reporting  experiements  on  the  impedance  of  corroding 
electrodes,  primarily  with  sequential  measurements  of  incrementally- 
varied  frequencies.  Smith  and  coworkers  have  used  FFT  faradaic 
admittance  measurements  to  study  the  kinetics  of  electrochemical 
reactions  of  the  dropping  mercury  electrode.  Pryor  and  coworkers 
have  examined  anodic  films  at  several  different  frequencies.  The 
work  described  here  represents  the  first  known  attempt  to  use  off-the- 
shelf  commercially  available  digital  signal  analysis  equipment  to 
measure,  in  situ,  the  impedance  of  and  to  characterize  the  state  of 
the  corroding  interface  of  430  stainless  stell  in  IN  H-SO.  in  the 
active,  passive  and  transpassive  ranges  of  polarization  potential. 
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Capabilities  and  Limitations  of  Digital  Signal  Analysis 

The  equipment  assembled  to  evaluate  the  impedance  of  a  corroding 
electrode  was  first  tested  on  a  three-element  dummy  circuit  which 
represented  the  simplest  model  of  an  electrochemical  interface.  By 
varying  the  element  values  of  the  equivalent  circuit  one  quickly  became 
acquainted  with  some  of  the  difficulties  inherent  in  this  method. 
Despite  the  use  of  12-bit  A/D  converters,  digitization  error  became  a 
problem  if  the  measured  voltage  became  a  small  percentage  of  the  full 
scale  value.  Since  the  instrument  was  not  equipped  with  an  autoranging 
capability  it  was  recognized  that  the  perturbation  and  response  voltage 
signals  would  have  to  be  monitored  and  appropriate  ranges  selected 
manually  during  the  course  of  an  experiment  in  order  to  assure  acceptable 
S/N. 

Another  concern  was  1/f  error.  Since  the  N  frequencies  produced 
by  the  EFT  are  equally  spaced,  the  percent  uncertainty  at  a  particular 
frequency  is  inversely  proportional  to  that  frequency.  Since  this 
introduced  unacceptable  error  beyond  one  decade  of  analysis,  it  was 
decided  to  tie  consecutively-gathered  spectra  together,  discarding 
low  resolution  overlapping  data.  The  resultant  five-decade  frequency 
spectrum  was  thus  assured  of  a  minimal  1/f  errof .  However,  the 
required  five  sequential  measurements  compromise  one  of  the  original 
purposes  for  favoring  FFT  analysis  over  lock- in  amplifier  measurements, 
namely  real-time  capability.  In  its  present  configuration,  data  is 
collected  over  a  nine-minute  period. 

Another  outcome  of  the  dummy  electrode  studies  was  the  discovery 
of  an  apparent  oversight  in  the  design  of  the  HP5420  analyzer,  a  low-pass 
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filter  with  premature  cutoff.  This  behavior  manifested  itself 
as  a  deviation  from  theoretical  predictions  or  real  and  imaginary 
components  of  impedance  at  frequencies  immediately  below  256  Hz.  From 
this  observation  of  dummy  electrode  behavior,  the  author  was  spared 
trying  to  explain  the  significance  of  instrumental  artefact  in  the 
impedance  of  real  electrodes.  The  dummy  electrode  experiments  also 
illustrated  the  high  frequency  behavior  of  the  optical  isolator 
circuits  and  the  associated  deviation  from  theoretical  predictions. 
Apart  from  these  idiosyncrasies  of  the  AC  system,  the  dummy 
electrode  studies  also  illustrate  the  system  is  capable  of 
experimentally  determining  the  values  of  a  known  three-element  network 
reliably. 

The  application  of  the  AC  system  to  the  study  of  corrosion  of 
430  stainless  steel  in  IN  H-SO.  revealed  more  capabilities  and 
limitations.  The  data  analysis  capabilities  of  the  system  software 
were  conceived  based  on  the  three-element  network  model.  The  two-lobe 
behavior  in  the  complex  plane  plot  at  the  corrosion  potential  revealed 
that  a  more  complicated  equivalent  circuit  model  was  required.  The 
chosen  model  is  actually  a  straightforward  extension  of  the  three- 
element  network  assuming  the  presence  of  a  film  in  series  with  the 
electrochemical  interface,  a  film  possessing  both  resistive  and 
capacitive  character.  It  is  interesting  that  this  five-element  net- 
work model  appears  to  be  adequate  at  the  corrosion  potential  and  at 
all  intermediate  potential  ranges  up  to  and  including  transpassive 
behavior.  The  values  of  capacitance  at  the  corrosion  potential  are 
startling  in  magnitude,  but  their  variation  as  a  function  of  potential 
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is  ample  proof  of  the  sensitivity  of  this  method  to  the  character  of 
the  corroding  interface.  The  fact  that  a  single  equivalent  circuit  model 
can  be  used  at  all  values  of  polarization  potential  and  the  reasonable 
variation  of  resistance  values  also  support  the  capability  of  this 
technique  in  characterizing  the  corroding  electrode  with  equivalent 
circuit  values. 

If  quantification  of  equivalent  circuit  elements  proves  to  be 
the  most  effective  way  of  characterizing  an  interface,  the  analytical 
determination  of  the  values  from  the  impedance  data  must  be  improved 
upon.  The  present  trial  and  error  method  is  time-consuming  and  awkward 
and  certainly  lacks  mathematical  elegance.  Other  methods  of  character- 
izing protective  film  behavior  should  be  sought,  possibly  expressing 
it  as  a  mathematical  combination  of  several  network  parameters. 

In  this  set  of  experiments,  the  upper  frequency  instrumental 
artefact  due  to  the  optical  isolator  circuits  did  not  appear  to 
jeopardize  the  determination  of  any  network  parameters.  However,  it 
certainly  diminishes  the  system  capability  below  the  desired  five- 
decade  frequency  range.  Attempts  should  be  made  to  either  improve 
the  frequency  response  of  the  optical  couplers  or  to  find  a  simpler 
method  of  integrating  equipment  components. 

Recommendations  for  Future  Research 

Future  work  in  this  field  should  be  divided  into  three  categories: 
system  refinement,  analytical  methods  development  and  corroding  electrode 
studies. 
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System  Refinement 

Minimizing  discretization  error.  Although  experiments  with 
dummy  networks  and  real  corroding  electrodes  demonstrate  the  system's 
capability  to  determine  element  values  of  equivalent  circuits,  it  is 
still  a  somewhat  awkward  system  to  use.  The  lOOmv  lowest  scale 
limitation  of  the  A/D  converters  intensifies  the  problem  of  discretiz- 
ation error  when  the  desirable  perturbation  signal  amplitude  of  2-5mv 
is  used.  The  addition  of  selectable  low-noise  lOx  or  lOOx  amplifier 
stages  prior  to  the  A/D  converters  would  be  a  welcome  addition.  Since 
the  network  impedance  of  an  electrochemical  interface  can  vary  by 
orders  of  magnitude  as  a  function  of  frequency,  however,  this  addition 
would  not  totally  solve  S/N  problems  due  to  discretization  error. 
Autoscaling  might  offer  a  solution  if  scale  changes  could  be  tracked 
and  used  to  scale  the  frequency  domain  data. 

The  problem  of  digitizing  an  analog  voltage  signal  whose 
amplitude  may  vary  over  several  orders  of  magnitude  is  one  shared 
by  those  who  code  and  decode  voice  message  signals  in  telecommunication 
syatems.  In  this  case  coding  corresponds  to  an  A/D  step;  decoding 
corresponds  to  a  D/A  step.  Where  voice  signals  are  coded  and  decoded 
uniformly,  or  in  even  digital  steps,  weak  signals  experience  much  more 
distortion  than  strong  signals.  Bell  Telephone  engineers  have  over- 
come this  problem  with  a  coding-decoding  process  called  companding  (57) . 

A  compandor  is  a  non-uniform  coder-decoder  pair  which  performs 
a  logarithmic  compression  on  the  analog  voice  signal,  a  uniform 
digitization  of  this  distorted  signal  and  logarithmic  expansion  during 
decoding.  It  is  clear  that  such  a  method  can  provide  a  greatly 
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improved  S/N  at  low  signal  smplitudes.  Obviously  the  transformation 
of  a  distorted  time  domain  signal  results  in  a  distorted  frequency 
domain  signal.  However,  since  the  FFT  is  a  linear  operation,  the 
distorted  frequency  domain  signal  can  be  logarithmically  expanded  in 
the  same  manner  as  a  time  domain  signal.  Companding  of  analog  inputs 
should  be  considered  as  a  means  of  nunimizing  the  effect  of  discreti- 
zation error  at  low  signal  amplitudes. 

Minimizing  1/f  error.  As  mentioned  previously,  1/f  error 
contributed  to  a  significant  compromise  in  the  utilization  of  the 
digital  signal  analysis  technique.  One  of  the  touted  advantages  of  the 
FFT  approach  is  that  a  time  domain  signal  can  be  analyzed  for  256  dis- 
crete frequencies  simultaneously  rather  than  sequentially  at  discrete 
frequencies.  However,  due  to  1/f  error,  the  desired  five-decade 
analysis  range  could  be  achieved  with  acceptable  error  only  by  per- 
forming five  sequential  analyses  over  decade-varying  frequency  ranges. 
The  resultant  1150+  data  points  were  more  than  adequate  to  define  the 
impedance  behavior  over  the  full  range  but  suffered  from  the  disadvan- 
tage that  the  data  were  collected  at  five  discrete  intervals  of  time. 

One  method  of  nunimizing  the  1/f  error  would  be  to  use  an  FFT 
which  evaluates  over  a  higher  number  of  discrete  intervals,  say  1024 
or  2048.  However,  a  2048-interval  analyzer  would  still  acquire  less 
than  two  decades  of  frequency  data  at  the  same  level  of  error  while 
increasing  the  computation  burden  and  computation  time  of  the  FFT  by 
a  factor  of  64. 

In  reality,  250  data  points  would  be  adequate  to  define  the 
impedance  if  they  were  uniformly  distributed  over  the  five  decades. 
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i.e.  if  the  log  frequency  scale  were  divided  into  250  evenly-spaced 
intervals.  This  method  was  in  fact  used  in  the  numerical-analytical 
determination  of  the  impedance  of  the  five-component  network.   (See 
the  description  of  GRAFIT  in  Appendix  D.) 

How  this  might  be  implemented  into  FFT  analysis  requires 
thorough  consideration  of  the  method  by  which  the  FFT  is  determined. 
One  seeks  to  distribute  the  frequency  intervals  evenly  over  the  log 
frequency  scale.  Since  the  FFT  is  a  linear  operator  it  would  appear 
that  distribution  of  the  time  domain  samples  evenly  over  the  log  time 
scale  would  be  the  only  requirement.  Time  precludes  rigorous  proof 
of  this  hypothesis  but  if  it  is  correct,  one  need  only  sample  the 
time  domain  data  in  logarithmically  distributed  intervals.  This 
would  require  a  sampling  signal  with  the  pulses  appropriately  spaced. 
Whether  this  or  another  method  is  used,  effort  should  be  made  to 
perform  the  five  decade  analysis  using  a  single  256  sample  ensemble  of 
data. 

Perturbation  signals.  The  white  noise  signal  used  to  perturb 
the  electrochemical  interface  was  used  because  of  its  availability 
rather  than  being  selected  as  an  ideal  signal  source.  Other  invest- 
igators have  used  single  frequency  sinusoidal  signals  or  combinations 
of  particular  frequencies  or  pseudo-random  noise  signals.  One  type 
of  signal  which  would  appear  to  be  ideal  for  evaluating  any  relaxed, 
linear,  time- invariant  system  would  be  the  impulse  function.  Since 
the  Fourier  transform  of  the  impulse  function  is  identically  unity, 
the  measurement  of  the  cross  power  spectrum  of  the  system  response 
should  be  exactly  equal  to  the  transfer  function  of  the  system. 
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Despite  the  fact  that  Smith's  empirical  comparison  of  the  impulse 
function  with  other  perturbation  signals  seems  to  indicate  that 
impulse  is  a  "less  efficient"  signal  than  others,  there  has  really 
been  no  sound  theoretical  basis  for  excluding  it.  Further  investi- 
gation should  be  made  of  the  utility  of  various  signal  types  as 
perturbation  sources. 
Analytical  Methods 

Equivalent  circuit  analysis.  The  graphical  analysis  of  all  five 
plot  types  to  determine  equivalent  circuit  values  for  a  three-element 
network  is  straightforward  and  fully  within  the  capability  of  the 
main  program  software.  At  the  present  time  the  analysis  of  a  five- 
element  network  can  be  done  only  by  trial  and  error.  This  is  an 
obvious  area  of  future  development  in  the  category  of  analytical 
methods.  One  of  the  disadvantages  of  the  equivalent  circuit  method 
of  analysis  is  that  these  analysis  methods  must  be  modified  each  time 
a  new  interface  model  is  proposed.  Further  investigation  should  be 
made  of  alternative  methods  to  characterize  the  corroding  interface 
using  dynamic  response  data. 

Application  of  Cohtrol  Theory  to  corroding  interfaces.  An 
entirely  different  analytical  approach  should  also  be  attempted.  If 
one  considers  a  plot  of  current  vs  potential  for  a  metal  which  exhibits 
a  region  of  passivity,  there  is  a  region  of  constant  low  current  in  the 
range  of  polarization  potentials  in  which  the  metal  is  protected  by 
the  passive  film.  In  this  region  the  electrochemical  inteface  appears 
to  be  behaving  as  a  negative  feedback  control  system,  in  this  case  as 
a  current  regulator.  Increases  in  potential  have  the  effect  of 
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increasing  film  thickness  which  in  turn  limits  current  flew.  This 
"self-healing"  nature  of  the  film  in  the  passive  region  is  exactly 
the  quality  of  a  metal  surface  which  renders  an  otherwise  active 
metal  corrosion-resistant. 

One  of  the  most  pertinent  questions  one  can  ask  about  any  control 
system  concerns  its  stability.  Stability,  in  this  context,  means  its 
ability  to  restore  the  set  current  when  perturbed  from  equilibrium, 
i.e.  changing  the  potential.  In  this  case,  changing  the  potential  also 
gives  the  control  system  different  characteristics,  since  the  potential 
is  intimately  associated  with  the  thermodynamic  state  of  the  passive 
film. 

The  problem  is  a  complicated  one;  however,  control  theory, 
provides  methods  of  determining  whether  a  system  is  stable  or  unstable. 
If  one  considers  the  Bode  portrayal  of  the  so-called  open-loop  transfer 
function  of  the  system  one  can  determine  graphically  whether  the 
control  system  is  stable  or  unstable.  It  is  logical  to  assume  that 
a  control  system  consisting  of  an  electrochemical  interface  and  a 
passive  film  would  have  its  stability  dependent  on  potential  and  that 
anodic  protection  could  be  effected  by  maintaining  the  potential  at 
the  value  at  which  the  system  was  most  stable.  Although  such  an  approach 
avoids  consideration  of  electrochemical  mechanisms,  it  woulc  be  an 
effective  way  of  determining  how  to  control  an  anodic  protection 
system. 
Corroding  Electrode  Studies 

Gathering  more  data  on  real  corroding  electrodes  will  do  much 
to  enhance  the  credibility  of  this  technique,  and  to  better  identify 
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its  specific  strengths  and  weaknesses.  For  example,  can  this  technique 
with  seme  or  all  of  the  refinements  described  earlier  be  used  to 
characterize  the  state  of  the  corroding  electrode  for  which  the  solution 
resistance  is  orders  of  magnitude  larger  than  the  other  resistive 
components?  Examples  of  this  type  of  problem  are  the  evaluation  of 
the  corrosion  of  steel  reinforcing  rods  buried  in  concrete  or  the 
deterioration  of  metals  in  weakly  conducting  electrolytes  such  as 
alcohols . 

Can  the  method  be  used  to  evaluate  the  character  of  passive  films 
on  aluminum  or  other  valve  metals?  These  films  are  thick  and  can  be 
made  thicker  through  anodization.  Would  this  approach  be  an  appro- 
priate quality  control  for  the  anodization  process?  Can  it  be  used 
to  monitor  time-dependent  changes  or  an  anodic  film  in  a  particular 
solution? 

Can  this  technique  be  used  to  evaluate  the  corrosion  protection 
quality  of  other  types  of  coating  such  as  paints?  If  the  coating  is 
porous  will  this  technique  be  able  to  distinguish  between  this  and  a 
properly  applied  coating?  What  can  this  technique  reveal  about 
inhibitors  in  a  coating  material  or  in  the  solution? 

It  may  also  be  fruitful  to  compare  this  technique  one-on-one 
with  the  sequential  frequency  data  collection  techniques.  Is  the  FIT 
method  significantly  faster  than  sequentially-gathered  data?  Does 
the  lower  S/N  ratio  of  the  lock- in  amplifier  approach  make  it  more 
reliable  than  the  FFT  method?  Can  a  frequency  be  identified  below 
which  the  character  of  the  corroding  system  is  changed,  i.e.  no  longer 
behaves  with  the  same  transfer  function  as  at  higher  frequencies? 
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This  application  of  digital  signal  analysis  technology  to  the 
study  of  corroding  electrodes  illustrates  that  the  electrochemical 
interface  exhibits  behavior  analogous  to  that  of  virtually  all  dynamic 
systems  when  perturbed  by  white  noise.  The  frequency  response  is  a 
unique  fingerprint  of  its  character,  a  character  revealed  only  partially 
and  with  much  more  effort  by  direct  current  methods.  While  many  more 
investigations  must  be  performed  to  address  the  questions  posed  on  the 
previous  pages  and  other  data  analysis  techniques  required  to  reveal 
all  of  the  corrosion-specific  information  contained  in  the  transfer 
function,  the  method  offers  significant  promise  to  become  the  technical 
basis  of  real-time  corrosion-monitoring  systems.  This  work  represents 
a  small  step  toward  the  technical  realization  of  automatic,  rapid, 
accurate  and  inexpensive  characterization  of  corroding  interfaces. 


APPENDIX  A 
DIGITAL  SIGNAL  ANALYSIS  TERMINOLOGY 

A.  1  Introduction 
The  motivation  for  performing  digital  signal  analysis  lies  in  the 
premise  that  the  response  of  a  system  to  a  time  varying  perturbation 
will  reveal  information  about  the  dynamic  character  of  the  system  which 
may  not  be  obtainable  by  other  means.  This  approach  is  used  widely  in 
mechanical  vibration  testing,  acoustics  and  in  the  analysis  of  feedback 
control  system  stability.  Sophisticated  equipment  has  been  developed 
to  perform  this  frequency  response  analysis  and  is  capable  of  a  wide 
range  of  data  collection  functions  in  addition  to  the  determination  of 
system  transfer  functions.  The  application  of  these  sophisticated 
signal  analysis  techniques  to  electroanalytical  chemistry  in  general 
and  to  corrosion  processes  in  particular  is  recent  and  represents  a 
novel  and  potentially  fruitful  method  of  corrosion  monitoring.  In  this 
section,  the  theoretical  basis  for  digital  signal  analysis  is  discussed 
briefly  followed  by  a  description  of  the  features  of  the  analysis 
equipment  used  for  this  work  (58,  59) . 

A.  2  Time-to-Freguency  Transformation 
Fundamental  to  the  execution  of  signal  analysis  is  the  conversion 
of  the  perturbation  and  system  response  into  time  domain  electrical 
signals,  i.e.,  voltage  versus  time.  In  mechanical  vibration  testing, 
this  may  be  accomplished  with  strain  gauges,  force  transducers,  or 
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accelerometers;  in  acoustics,  microphones  are  used.  In  electrochemical 
impedance  measurements,  the  voltage  perturbation  signal  is  used  directly 
and  the  current  response  is  converted  into  a  voltage  signal  either  as 
the  voltage  drop  across  a  resistor  or  through  a  zero  resistance  ammeter. 

In  order  to  relate  the  response  of  a  system  to  the  input 
perturbation,  it  is  much  more  efficient  to  convert  both  time  domain 
signals  into  the  frequency  domain.  The  rationale  for  performing  this 
transformation  is  that  frequency  domain  functions  may  be  manipulated 
algebraically  to  yield  frequency  response  information  in  contrast  to 
the  more  complex  integral/differential  relationships  required  to  analyze 
the  time  domain  functions.  For  example,  the  input-output  relationship 
of  a  linear  system  can  often  be  described  by  the  so-called  convolution 
integral 

y(t)  =  /  u(t,T)x(T)dx  A.l 

where  y  (t)  is  the  time  domain  response  to  the  input  perturbation  x  (t) . 
The  function  w(t,T)  is  called  the  weighting  function  and  embodies  the 
physical  properties  of  the  system.  In  the  frequency  domain,  the  input 
and  output  can  be  related  algebraically  as 

Y(f)  =  H(f)-X(f)  A.2 

where  Y(f)  and  X(f)  are  the  output  and  input,  respectively,  and  H(f) 
is  the  so-called  transfer  function. 

The  mechanism  for  performing  this  transformation  from  time  to 
frequency  domain  is  found  in  the  single-sided  Fourier  transform  integral, 

00  . 

F(w)  =/  f(t)e-:3  27Ta3tdt  A.  3 

o 
The  form  of  Equation  A.  3  suggests  that  it  can  be  evaluated  by 
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converting  the  exponential  e  -1   to  the  trigonometric  form  cos  (cot)  - 
j  sin  (cot) ,  and  this  is  the  basis  for  the  evaluation  method  used  in  com- 
puter-based analyzers.  When  one  attempts  to  evaluate  F(co)  analytically, 
however,  the  explicit  correspondence  between  the  time  domain  function 
and  frequency  domain  function  defined  by  Equation  A. 3  results  in  an 
expression  for  F  (co)  which  is  the  sum  of  an  infinite  series  of  sine  and 
cosine  terms.  One  therefore  seeks  a  numerical  solution  to  the  evalua- 
tion of  Equation  A. 3. 

Fortunately,  the  discrete  Fourier  transform  (DFT)  algorithm  offers 
a  very  good  approximation  of  the  Fourier  integral  and  can  be  computed 

in  a  more  reasonable  period  of  time: 

i         •  2tt  (n)k 
F(kS)  =  n  £   f(n-r)  e~3   N  4 

n=0 

One  implements  the  DFT  by  breaking  up  the  time  domain  function  f  (nr) 

into  N  samples  x  seconds  apart  in  a  total  data  block  of  Nx  seconds. 

Then  one  restricts  the  frequency  domain  function  to  a  finite  frequency 

range  of  interest  and  divides  it  into  K  discrete  equally  spaced  elements 

$  Hz  apart.  Equation  A. 4  yields  a  frequency  spectrum  F  (kg)  composed  of 

K  discrete  values  from  the  sampled  signal  f (nx) .   (See  Figure  A.l)  In 

the  case  of  the  HP5420  signal  analyzer  used  for  this  work,  K  =  N  =  256 

for  both  the  input  and  output  signals.  Equation  A. 4  indicates  that  for 

.2rrnk 
each  of  the  256  values  of  n,  the  value  of  e  -1  N    must  be  computed  and 

multiplied  by  F(nx)  and  that  this  must  be  repeated  for  each  of  the  256 

values  of  k.  This  represents  a  calculation  burden  of  over  65,000  steps. 

Of  course,  this  burden  is  multiplied  by  two  in  order  to  get  the  same 

information  for  both  input  and  output,  resulting  in  an  unacceptably 
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Figure  A.l    Conversion  of  time  domain  signal,  (A)  into  ^reouency  domain 
signal,  (B)  via  the  fast  Fourier  transform  algorithm.  An 
analog'  signal  of  length  T  is  divided  into  N  samples  with 
a  sample  taken  every  t  seconds.  The  conroutation  of  the 
discrete  Fourier  transform  from  this  N-sample  ensemble 
results  in  K-sample  frequency  spectrum. 
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long  computation  period  for  application  in  a  real  time  analyzer. 

An  enhanced  method  of  conputation  is  made  possible  by  the  Fast 

,  Fourier  Transform  (FFT)  algorithm  developed  by  Cooley  and  Tukey  (52) . 

They  observed  that  because  of  the  trigonometeric  character  of 

.  2-rr(n)k  , 
e  J       N 

substitution  of  consecutive  integer  values  of  n  and  k  into  Equation  A. 4 

produces  cyclically  repetitive  results;  thus,  many  computations  need 

not  be  made.  The  FFT  is  able  to  reduce  the  number  of  computations  to 

about  2%  of  the  number  required  by  the  DFT,  yet  yields  identical  results. 

A. 3  Functional  Relationships 
The  linear,  time-invariant  system  to  be  investigated  may  be  viewed 
as  a  box  into  which  the  perturbing  signal  is  fed  and  from  which  the 
response  signal  is  led  (see  Figure  A.  2) .  One  can  now  define  a  family 
of  linear  time  domain  and  frequency  domain  functions  which  describe 
the  relationship  between  input  and  output.  The  functions  appearing  in 
Figure  A. 2  are  defined  as  follows: 

x(t)  =  time  domain  expression  of  perturbing  signal 
y(t)  =  time  domain  expression  of  response  signal 
S  (f)  =  linear  Fourier  spectrum  of  x(t) 
S  (f)  =  linear  Fourier  spectrum  of  y(t) 
H(f)  =  system  transfer  function 
h(t)  =  inverse  Fourier  transform  of  H(f) ,  sometimes  called  the 

system  impulse  function 
Similarly,  one  can  define  a  family  of  time  and  frequency  domain 
functions  relating  the  power  of  the  input  signal  to  the  output  signal 
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(see  Figure  A. 3) .  This  set  of  functional  relationships,  also  known  as 

square  law  relationships,  also  provides  valuable  information  about  the 

system.  They  are  defined  as  follows: 

R  (t)  =  auto  correlation  of  the  input  signal  x(t) 

R  (t)  =  auto  correlation  of  the  output  signal  y(t) 

G  (f)  =  auto  power  spectrum  of  x(t) 

G  (f)  =  cross  power  spectrum  of  y(t)  and  x(t) 
yx 

R  (f)  =  cross  correlation  of  y(t)  and  x(t) 

Although  a  detailed  explanation  of  each  of  these  functions  and  its 
potential  usefulness  will  not  be  attempted  here,  a  few  more  words  of 
explanation  are  in  order. 

A. 3.1  Auto  Correlation 

The  correlation  function  is  a  time  average  found  by  multiplying  a 
signal  by  the  same  signal  lagging  x  units  in  time  and  averaging  the 
product  over  the  time  of  observation.  It  is  thus  defined  as 

Lim 
R  (t)  =      1  /x(t)-x(t  +  r)dt  A.5 

xx      t  ->°°  T 

although  it  is  usually  calculated  as  the  inverse  Fourier  transform  of 
the  auto  power  spectrum.  It  is  most  useful  in  distinguishing  a  periodic 
or  impulsive  signal  from  random  noise  (58) . 

A. 3. 2  Cross  Correlation 

The  cross  correlation  measures  the  similarity  between  two  signals 

as  a  function  of  time  shift.  It  is  defined  as 

Lim  , 
Ryx(T)  =T  -»  T~/y(t)*  X(t  +T)dt  A*6 
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Figure  A. 2      Linear  relationships  as  defined  for  digital  signal  analysis. 
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Figure  A. 3       Square- low  relationships  as  defined  for  digital  signal 
analysis . 
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but,  just  as  the  auto  correlation  function,  it  is  usually  calculated 
as  the  inverse  Fourier  transform  of  the  cross  power  spectrum.  The 
cross  correlation  function  is  most  useful  in  measuring  time  delays 
between  signals  (58) . 

A. 3. 3  Auto  Power  Spectrum 

The  auto  power  spectrum  is  a  function  containing  only  magnitude 
information  about  the  signal  of  interest.  It  is  defined  as 

G  (f)  =  S  (f )  •  S  (f)*  A.5 

XX        X        X 

where  S  (f)*  is  the  complex  conjugate  of  S  (f ) .  This  multiplication 

effectively  removes  the  imaginary  component  thus  obviating  any  phase 

information  contained  in  S  .  As  mentioned  above,  it  is  also  the  Fourier 

x  ' 

transform  of  the  auto  correlation  function  and  contains  the  same  infor- 
mation. 

A. 3. 4  Cross  Power  Spectrum 

The  cross  power  spectrum  is  a  measure  of  the  mutual  power  between 
two  signals  at  each  frequency  in  the  analysis  band.  Defined  as 

G   =  S  (f)  •  S  (f)*  A.6 

yx    y       X 

it  contains  the  relative  phase  between  the  two  signals.  It  is  used  to 
analyze  phase  relationships  between  signals. 

A. 3. 5  Transfer  Function 

The  transfer  function  or  frequency  response  of  a  system  provides 
magnitude  and  phase  information  about  the  output-input  relationships  or 


a  system.  It  is  defined  as 

G~7fT 

J2L 


H(f)  =  — TfT  A'7 

XX 


Y2(f) 

G      (f)    •  G       f )    * 
yx               yx 

0  <  y2  <  1 

G      (f)    •   G      (f) 
xx              yy 
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where  the  bars  indicate  average  values. 

Two  other  functions  which  can  be  derived  from  the  computation  of 
those  previously  listed  are  the  coherence  function  and  the  signal— to- 
noise  ratio  (S/N) .  The  coherence  function  assumes  values  between  zero 
and  one  and  is  a  measure  of  the  degree  of  causality  between  system  input 
and  output.  It  is  defined  as 
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A  value  of  y  (f )  <  1  at  any  particular  frequency  indicates  the  presence 

of  noise,  non-linearities  or  time  delays  in  the  system.  The  signal-to- 
noise  ratio  provides  the  same  information  but  is  easier  to  grasp  in- 
tuitively. It  is  derived  from  the  coherence  function  by  the  equation 

S(f)  _    Y2(f)  a  9 

Another  function  of  the  HP5420  signal  analyzer  is  particularly  useful 
in  characterizing  input  signals.  It  is  the  amplitude  histogram  which 
is  a  representation  of  the  probability  density  of  the  input  waveform. 
As  the  waveform  is  sampled,  the  analyzer  counts  the  number  of  times  a 
particular  voltage  is  encountered  and  portrays  number  versus  voltage. 
Pi vising  this  number  by  512  times  the  number  of  averages  normalizes  it 
to  the  total  number  of  samples.  Using  this  display,  the  random  noise 
signal  is  depicted  as  a  Gaussian  distribution. 

A.  4  Signal  Processing  Steps 
The  signal  processing  steps  performed  by  the  signal  analyzer  in 
transforming  time  domain  input  and  output  signals  to  the  various 
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frequency  domain  functions  will  now  be  considered.  As  mentioned 
previously  and  illustrated  in  Figure  A.l,  the  computation  of  the  DFT  or 
FPT  requires  that  the  time  domain  signal  be  sampled.  This  means  that  the 
analog  voltage  signal  is  viewed  for  a  certain  time  interval  and  is  a 
digitized  value  at  each  of  N  equally-spaced  subintervals .  In  the  par- 
lance of  digital  signal  analysis,  the  total  time  interval  in  which  the 
analyzer  is  looking  at  the  input  signal  is  called  the  time  window  (Tp  , 
each  of  the  N  digitized  voltages  is  called  a  sample,  and  the  complete 
set  of  numbers  characterizing  the  signal  during  the  time  window  is  known 
as  an  ensemble.  In  the  Hewlett-Packard  5420  digital  signal  analyzer, 
N  is  256  for  the  majority  of  measurements.  Therefore,  the  required 
signal  sampling  rate  is  determined  by  the  size  of  the  time  window,  i.e., 

256AW- 

The  mechanism  of  sampling  an  analog  signal  is  the  electronic 
multiplication  of  the  time  domain  signal  by  the  sampling  function.  The 
sampling  function  is  a  series  of  unit  amplitude  pulses  occurring  at  the 
sampling  rate.  If  one  could  view  the  Fourier  spectrum  of  the  resultant 
signal  immediately  after  the  multiplication,  it  would  correspond  to  the 
spectrum  of  the  original  analog  signal  plus  an  infinite  number  of  sum 
and  difference  frequency  components  called  "aliases".  Since  the  lowest 
frequency  at  which  an  alias  can  occur  is  one-half  the  sampling  rate, 
the  sampling  rate  must  be  at  least  tori.ce  the  highest  frequency  of  in- 
terest in  the  spectrum  of  the  signal  of  interest.   (In  the  HP5420,  it 
is  four  times  the  frequency  of  interest.)  All  frequencies  from  the  input 
to  the  sampling  circuit  by  a  low  pass  or  "anti-aliasing"  filter. 
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The  continuous  stream  of  samples  coming  from  the  two  analog-to- 
digital  converters  (ADC)  are  simultaneously  grouped  into  ensembles  of 
256  samples  each.  Using  these  ensembles  of  data,  the  discrete  Fourier 
transform  algorithm  converts  the  digitized  array  into  the  frequency 
domain.  The  FFT  computation,  although  rapid,  takes  a  finite  amount  of 
time  and  begins  as  soon  as  there  are  256  samples  in  the  ensemble. 
Figure  A.  4  is  a  block  diagram  illustrating  these  signal  processing 
steps  (59). 

A. 5  Ensemble  Averaging 
Signal  averaging  is  used  to  reduce  variance  when  analyzing  random 
data.  The  simplest  and  most  familiar  form  is  summation  averaging  which 
is  performed  on  a  specified  number  of  ensembles.  The  summation  average 
of  N  ensembles  is  given  by 

1   N 
^N  "  N    E   Zi  A.10 

i  =  1 

Summation  averaging  requires  that  all  N  ensembles  be  averaged  before  a 
calibrated  result  is  produced  and  is,  therefore,  not  used  in  the  HP5420 
signal  analyzer. 

Instead,  a  process  called  stable  averaging  is  used.  Stable 
averaging  produces  the  same  results  as  summation  averaging  but  main- 
tains its  calibration  throughout  the  measurement.  The  formula  for 
stable  averaging  is 

a    a    .  ^  '  **  -1 

*N  "  T*-l       N  A.ll 

Here,  A^  is  the  average  after  N  ensembles.  Stable  averaging  is  useful 
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Figure  A. 4   Schematic  illustration  of  signal  processing  steps  in  the 
HP5420A. 
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when  the  characteristics  of  the  system  do  not  change  during  the  averaging 
process. 

In  many  electrochemical  systems,  the  properties  of  the  system  can 
be  expected  to  change  with  time  and  an  averaging  process  is  required 
which  will  reflect  these  changes.  Such  a  feature  is  provided  by  ex- 
ponential decay  averaging  which  produces  a  calibrated  average  using 
the  last  K  ensembles.  The  formula  for  exponential  decay  averaging  is 

^N   Vl      K 

where  K,  known  as  the  decay  constant,  is  a  number  smaller  than  N 
selected  by  the  operator. 

This  process  gives  added  weight  to  the  latest  data  and  discounts 
old  data  more  and  more.  The  net  effect  is  to  permit  observation  of 
permanent  changes  in  the  system  response  with  time  while  averaging  out 
the  random  fluctuations.  While  it  is  envisioned  that  exponential 
averaging  would  be  the  averaging  method  of  choice  while  observing  a 
slowly-changing  electrochemical  system,  stable  averaging  probed  to  be 
entirely  adequate  for  the  dummy  cell  and  real  systems  in  this  work. 


APPENDIX  B 
OPTICAL  COUPLER  CIRCUITRY 

Commercially  available  optical  coupling  chips  are  used  primarily 
in  digital  switching  devices.  The  operation  of  the  optical  coupler  is 
simple  in  principle.  The  input  signal  modulates  the  intensity  of  a 
light-emitting  diode.  Modulated  light  traverses  a  nitrogen-filled, 
hermetically-sealed  container  and  impinges  on  a  phototransistor  which 
behaves  as  a  conventional  transistor  with  a  signal  applied  to  the  base- 
emitter  junction.  The  characteristic  response  of  this  coupling  method 
is  nonlinear  and  is  sensitive  to  temperature.  However,  by  using  another 
optical  coupler  as  a  feedback  element,  the  nonlinear  transfer  character- 
istics can  be  minimized  and  the  effect  of  temperature  on  device 
characteristics  can  be  reduced. 

The  topical  isolator  circuitry,  built  for  the  AC-system,  is  designed 
to  handle  floating  grounds  and  has  five  stages:  input  amplifier,  coupler 
feedback  network,  output  offset,  buffer  amplifier  and  output  gain.   (See 
Figure  B.l.)  The  input  amplifier  stage  II  is  a  differential  amplifier 
with  switched  feedback  resistors  allowing  for  gains  of  either  0.1  or 
1.0.  In  this  configuration,  noise  common  to  both  input  leads  is 
cancelled  out.  Signal  attentuation,  if  required,  prevents  operation  of 
the  optical  couplers  in  a  nonlinear  fashion. 

The  network  consisting  of  12,  01  and  part  of  02  sets  the  bias 
voltage  for  the  optical  couplers  and  provides  negative  feedback  to 
enhance  the  linearity  of  the  output  signal.  The  bias  adjust 
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potentiometer  in  conjunction  with  12  is  used  to  set  the  most  linear 
operating  point  for  01  and  02.  Changes  in  gain  due  to  noise  or 
temperature  changes  are  sensed  by  01  and  fed  to  the  inverting  input  of 
12  to  stabilize  the  gain. 

The  output  offset  potentiometer  knob  is  located  on  the  exterior 
of  the  isolator  circuit  chassis  permitting  adjustment  of  the  DC  value 
of  the  output  signal  to  match  that  of  the  instrument  connected  to  the 
output  of  15.  This  stage  is  controlled  by  13  which  sums  the  signal 
from  02  and  the  output  offset  potential  from  the  potentiometer.  14  is 
a  buffer  amplifier  with  high  input  impedance,  low  output  impedance  and 
a  gain  of  1.  The  output  gain  stage  consisting  of  15  and  switched 
trimming  potentiometers  permits  calibration  of  the  entire  isolator  cir- 
cuit to  yield  overall  gains  of  1.0  and  10.0. 

Without  separate  power  supplies  and  grounds  for  input  and  output 
stages,  the  circuit  would  not  provide  isolation.  Accordingly,  one  is 
obliged  to  power  circuit  components  up  to  02  with  one  +  15  volt  power 
supply  and  those  after  02  with  another  +  15  volt  supply.  All  circuitry 
up  to  and  including  pins  1  and  2  of  02  belong  to  the  input  stage  and 
all  circuitry  from  and  including  pins  4  and  5  of  02  is  output  circuitry. 

As  shown  in  Figure  B.2,  the  optical  isolation  circuit  has  a 
reasonable  flat  frequency  response  up  to  about  15  kHz.  This  curve  was 
determined  by  measuring  the  transfer  function  of  the  isolation  circuit 
with  the  HP5420.  Beyond  15  kHz,  the  phase  lag  becomes  increasingly 
significant.  The  large  amplitude  spike  approximately  midway  across  the 
plot  and  the  severed  smaller  spikes  immediately  to  its  right  are  caused 
by  60  Hz  noise  and  its  harmonics,  respectively. 
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Figure  B.2   Frequency  response  of  the  optical  isolation  circuit. 


APPENDIX  C 
SIMULATED  ELECTRODE  STUDIES 

In  this  sequence  of  experiments  on  a  single  simulated  electrode, 

the  effects  of  signal  amplitude,  potentiostat  incorporation  and  the  use 

of  optical  isolation  were  assessed.  All  experiments  ware  performed  on 

a  three-components  electronic  network  with  R  =20. 0  +  0. 4  ft,  RD  =  1000  + 

1ft  and  Cp  =  22  +  2yF. 

C.l  Effect  of  Signal  Amplitude  on  Data  Quality 
The  response  of  a  simulated  electrode  network  was  measured  for 
signal  amplitudes  of  4v,  .4v  and  120  mv  p-p  with  the  BLWN  signal  applied 
across  the  network  and  current  determined  by  the  voltage  drop  across  R  . 
See  Figure  C.l  for  the  wiring  of  this  experiment  series.  The  results 
are  given  in  the  plots  of  Figures  C.2-C.4,  respectively.  Note  that  the 
data  are  portrayed  in  the  complex  plane,  Pohlman-Smyrl  and  Bode  formats. 
The  complex  plane  plot  appears  "upside-down"  because  +  imaginary  rather 
than  -  imaginary  values  have  been  plotted. 

The  data  are  superimposed  on  theoretical  curves  determined  using 
the  nominal  vlues  of  network  components.  It  can  be  seen  in  Figure  C.2 
that  the  experimentally  determined  values  of  R  and  R  are  very  close 
to  their  nominal  values.  The  disparity  in  slopes  evidenced  in  Figure 
C.2g  reflects  a  deviation  in  CL  from  the  nominal  value;  however,  analysis 
shown  the  deviation  to  be  less  than  5%,  well  within  the  allowable 
tolerance  for  the  capacitor.  Data  quality  is  observed  to  deteriorate 
at  low  frequencies  for  the  reasons  discussed  in  Chapter  III. 
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Lower  signal  amplitude  does  not  necessarily  mean  deterioration  in 
S/N  as  shown  in  Figure  C.3.  There  is  no  noticeable  change  in  data 
quality  as  a  consequence  of  the  ten- fold  decrease  in  signal  amplitude. 
In  Figure  C.4,  however,  there  is  a  marked  increase  in  low  frequency  data 
scatter,  a  trend  which  worsened  with  further  decreases  in  signal  ampli- 
tude. Plot  character  was  found  to  be  virtually  unrecognizable  in  the 
20  mv  p-p  range.  For  this  particular  network,  where  the  voltage  drop 
across  R  is  about  2%  of  the  voltage  drop  across  the  entire  network, 
a  20  mv  p-p  perturbation  would  result  in  a  0.4  mv  p-p  voltage  drop 
across  R  .  Given  the  capabilities  of  a  12  bit  ADC,  such  a  signal  can 
be  resolved  into  only  8  discrete  levels. 

The  graphical  portrayals  in  Figures  C.2-C.4  were  analyzed  for  the 
values  of  R  ,  R  and  C_  which  they  would  predict.  The  comparison  of 
predicted  and  nominal  values  for  the  three  signal  amplitudes  as  shown 
in  Table  0-1.  As  can  be  seen,  one  of  the  three  analysis  techniques  was 
capable  of  predicting  all  values  to  within  +5%  of  the  nominals  for  each 
of  the  three  amplitudes. 

C.2  Simulated  Electrode  Under  Potentiostatic  Control 
To  demonstrate  that  data  could  also  be  obtained  with  an  electrode 
under  potentiostatic  control,  the  network  was  connected  between  the 
counter  and  working  electrode  leads  of  the  potentiostat  and  a  160  mv  p-p 
ELWN  signal  was  applied  to  the  summing  junction  of  the  control  ampli- 
fier.  (See  Figure  C.5  for  a  schematic  representation.)  Potential 
drop  across  the  network  was  monitored  with  the  potentiostat  electrometer 
and  current  flow  measured  as  the  voltage  drop  across  R  . 
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Figure  C.l   Schematic  illustration  of  connections  without  optical 
isolation  or  potentiostat. 
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•  Figure  C.2   Three-element  network  impedance  plots  for  signal  amplitude 
of  4.0  volts. 
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,  Figure  C.3   Three-element  network  impedance  plots  for  signal  amplitude 
of  0.4  volts. 
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Figure  C.4   Three-element  network  impedance  plots  for  signal  amplitude 
of  120  mv. 


129 


HP   5420A 


ADC    1      ADC   2  Noise 

S>3L     Shi,         <5>a- 


<*> 


Input 


TtT 

WE   RE    CE 
PAR    173 


V  I 

®    © 


r-  -  H-  "  ~t 


I ."1 I 


Figure  C.5   Schematic  illustration  of  connections  with  a  potentiostat. 
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These  connections  resulted  in  a  DC  offset  of  about  20  mv  at  the 
HP5420  ADC,  and  an  offset  of  20-30  rnv  at  the  potentiostat.  The  presence 
of  such  offsets  led  to  the  development  of  optical  isolation  discussed 
in  Chapter  3  and  Appendix  B;  however,  the  offsets  were  ignored  during 
execution  of  this  run.  As  can  be  seen  in  the  sequence  of  plots  of 
Figure  C.6,  the  data  have  the  same  character  as  that  obtained  without 
potentiostatic  control  but  exhibits  more  data  scatter,  an  expected  out- 
come when  the  signal  is  processed  through  additional  analog  amplifier 
stages. 

C.3  Effect  of  Optical  Isolation 

Figure  C.7  is  a  series  of  plots  made  with  the  same  signal  amplitude 
and  potentiostatic  control  but  with  the  input  signal  separated  from  the 
potentiostat  with  an  optical  isolator.  The  inputs  to  both  HP5420  ADC 
channels  were  also  optically  isolated  as  shown  in  Figure  C.8.  The  off- 
set potentiometers  of  the  isolators  were  used  to  eliminate  all  DC  off- 
sets. Although  the  plot  character  is  maintained,  there  is  more  data 
scatter  evident  in  Figure  C.7  than  exhibited  by  the  network  when  subjected 
to  a  120  mv  p-p  signal  without  potentiostatic  control  (Figire  C.4) .  The 
price  one  pays  for  elimination  of  DC  offsets  is  a  deterioration  of  S/N. 

Another  penalty  observed  in  the  plots  of  Figure  C.7:  the 
frequency  response  above  10  kHz  exhibits  instrumental  artefact  from  the 
isolators,  destroying  the  usefulness  of  the  experimental  data  in  this 
range  of  frequency.  One  could  attempt  to  correct  this  problem  by  using 
optical  isolator  chips  with  better  high  frequency  response  characteris- 
tics or  could  simply  be  content  with  the  low  frequency  data. 
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Figure  C.6   Three-element  network  impedance  plots  made  with  a 
potentiostat  in  place. 
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Figure  C.7   Three-element  network  impedance  plots  for  measurements 
made  with  potentiostat  and  optical  isolators  in  place. 
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Figure  C.8   Schematic  illustration  of  connections  to  a  three-element 
network  with  potentiostat  and  optical  isolation. 


APPENDIX  D 
SYSTEM  SOFTWARE 

The  computer  software  created  during  the  course  of  this  project 

falls  into  three  general  categories:   (1)  the  BASIC  language  main 

program  written  by  Bob  Fortune  to  store,  manipulate,  smooth,  fit, 

analyze  and  plot  data  gathered  by  the  HP5420  signal  analyzer;  (2)  a 

series  of  command  files  written  by  the  author  using  the  main  program 

to  perform  routine  data  gathering  and  analysis  procedures;  and  (3)  a 

BASIC  language  program,  GRAFIT,  for  use  with  a  HP85  microcomputer  and 

HP7225  Graphics  Plotter  in  plotting  analytical  portrayals  of  impedance 

for  the  five-element  network  models  described  in  Chapter  IV. 

The  Main  Program 
The  main  program,  designated  at  5420N1,  may  be  read  into  RAM 
from  either  tape  or  eight- inch  diskette.  However,  the  diskette  also 
contains  subroutines  which  are  called  by  the  main  program  during  the 
course  of  execution.  The  diskette  must,  therefore,  be  in  place  in  an 
operational  disk  drive  during  execution  of  the  main  program.  The 
range  capabilities  of  the  program  is  illustrated  by  the  menu  which 
is  displayed  whenever  this  program  is  run. 
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5420  ANALYSIS  UNIT  GROUP  MENU 

K0  =  SETUP 

Kl  =  CURSOR 

K2  =  DISPLAY 

K3  =  CONTROL 

K4  =  SPECIAL 

K5  =  MODE 

K6  =  COMMAND  FILE  FUNCTIONS 

K7  =  DATA  FILE  FUNCTIONS 

K8  =  DATA  MANIPULATIONS 

K9  =  EDIT  FUNCTIONS 

K10  =  DELETE  LOCAL  COMMANDS 

Kll  =  FUE-OF-FILES 

K12  =  COMPUTER  OPERATIONS 

K14  =  PLOT  LIMITS 

AK4  =  COMMAND  DUMP 

In  this  menu  listing,  the  letter  K  followed  by  a  number  refers 
to  a  function  key  which  may  be  depressed  to  activate  the  indicated 
section  of  software.  The  function  and  capabilities  of  each  of  the 
individual  sections  will  now  be  outlined. 

Function  Keys 

K0  SET  UP.  When  function  key  0  is  activated,  subroutine  "Set 
up  group"  is  read  in  from  the  diskette  and  executed.  The  purpose 
of  the  setup  group  is  to  permit  the  user  to  operate  the  setup  buttoms 
in  the  5420  analyzer  with  computer  control.  The  user  creates  a  series 
of  command  which  upon  execution  are  transmitted  via  the  HPIB  to  the 
HP5420  and  place  it  in  a  configuration  capable  of  receiving  data. 
For  example,  one  can  specify  whether  the  analyzer  is  to  be  configured 
for  frequency  or  time  domain  analysis,  which  type  of  averaging  is 
desired,  the  type  of  input  signal  which  will  be  used,  etc.  Once  the 
user  understands  how  to  operate  the  keys  manually,  the  use  of  the  set- 
up group  program  is  self-explanatory. 
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Kl  CURSOR.  When  function  key  1  is  activated,  subroutine  "Cursor 
group"  is  read  in  fron  the  diskette  and  executed.  The  cursor  group 
was  to  have  permitted  control  of  the  cursor  on  the  CRT  display  of  the 
5420  analyzer.  This  group  was  never  fully  developed  and  is  of  no  use. 

K2  DISPLAY.  When  function  key  2  is  activated,  subroutine 
"Display  group"  is  read  in  from  the  diskette  and  executed.  The  purpose 
of  the  display  group  is  to  create  commands  which  specify  in  which  plot 
format  a  given  set  of  data  is  to  be  displayed  on  the  CRT  of  the  HP5420. 
For  example,  the  data  may  be  portrayed  in  complex  plane  or  Bode  plot 
formats.  All  the  keys  on  the  HP5420  which  control  display  may  be 
controlled  from  the  HP9845  computer.  Use  of  this  group  is  straight- 
forward once  the  user  understands  the  function  of  the  HP5420  keys. 

K3  CONTROL.  When  function  key  3  is  activated,  subroutine 
"Control  group"  is  read  in  from  the  diskette  and  executed.  The  con- 
trol group  permits  creation  of  computer  commands  for  the  control  keys 
of  the  HP5420  analyzer.  For  example,  once  all  setup  and  display  format 
information  has  been  entered,  data  collection  may  begin.  This  requires 
activation  of  the  START  control.  Other  control  keys  are  PAUSE/CONTINUE, 
VIEW  INPUT,  MAX  RATE,  RESET  and  SELF-TEST. 

K4  SPECIAL.  When  function  key  4  is  activated,  subroutine 
" Special  group "  is  read  in  from  the  diskette  and  executed.  The  special 
group  contains  miscellaneous  commands  which  can  be  used  with  the  HP5420. 
For  example,  commands  to  prohibit  recognition  of  local  (manual  button- 
pushing)  commands  during  computer-controlled  command  execution  is 
provided  here.  One  can  also  place  text  on  the  screen  of  the  5420  CRT 
using  this  group. 
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K5  MODE.  When  function  key  5  is  activated,  subroutine  "Mode" 
at  line  1320  of  the  main  program  is  executed.  Mode  control  determines 
whether  a  set  of  commands  will  be  executed  immediately,  stored  for  later 
execution,  or  whether  a  stored  set  should  be  executed.  This  group  is 
used  to  execute  command  files. 

K6  COMMAND  FILE  FUNCTIONS.  When  function  key  6  is  activated, 
subroutine  "Command  file"  is  read  in  from  the  diskette  and  executed. 
This  group  permits  manipulation  of  command  files  after  creation.  One 
may  save,  recall,  or  append  an  existing  command  file. 

K7  DATA  FILE  FUNCTIONS.  When  function  key  7  is  activated, 
subroutine  "Dfile"  is  read  in  from  the  diskette  and  executed.  Data 
files  are  created  each  time  a  set  of  data  is  gathered  by  the  HP5420. 
The  data  file  function  group  permits  these  so-called  short  data  sets 
to  be  named  and  renamed,  tied  together  into  a  long-data  set  (deleting 
low-resolution  over-lapping  data  points)  and  resaved.  This  group 
creates  instructions  which  are  included  in  a  command  file  to  perform 
these  functions  routinely. 

K8  DATA  MANIPULATIONS;  When  function  key  8  is  activated,  subroutine 
"Dmanip"  is  read  in  from  the  diskette  and  executed.  Once  data  files  have 
been  created  and  stored,  this  group  permits  mathematical  manipulation  of 
the  data.  For  example,  individual  short  data  sets  can  be  tied  together. 
Lease  squares  and  polynomial  fits  may  be  performed  on  the  data,  generating 
new  smoother  sets  of  data.  Peal  and  imaginary  arrays  may  be  scaled  by  a 
factor.  Using  the  cursor,  regions  of  interest  may  be  specified,  creating 
new  data  sets  for  the  region  of  interest.  This  group  proved  to  be  an 
extremely  flexible  and  useful  tool. 
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K9  EDIT  FUNCTIONS.  When  function  key  9  is  activated,  subroutine 
"Editl"  at  line  1590  of  the  main  program  is  executed.  This  group  con- 
stitutes an  editing  package  for  the  command  files.  The  user  may  delete 
or  replace  individual  lines  or  list  the  entire  command  file.  In  using 
the  editor,  other  groups  such  as  SETUP,  CURSOR,  DISPLAY,  CONTROL,  DATA 
FILES,  and  DATA  MANIPULATION  may  be  invoked. 

K10  DELETE  LOCAL  COMMANDS.  When  function  key  10  is  activated, 
subroutine  "De^com"  at  line  2550  of  the  main  program  is  executed.  This 
subroutine  deletes  all  commands  currently  in  the  local  command  file,  thus 
preparing  for  the  creation  of  a  new  command  file. 

Kll  FTLE-QF-FTT.fc;.  when  function  key  11  is  activated,  subroutine 
"Mul  file"  is  read  in  from  the  diskette  and  executed.  This  subroutine 
provides  for  .the  sequential  execution  of  a  series  of  command  files.  A 
particular  sequence  such  as  data  collection,  followed  by  plotting  in  a 
particular  format,  can  be  given  a  file-of -files  name,  which  can  then  be 
executed  at  will. 

K12  COMPUTER  OPERATIONS.  When  function  key  12  is  activated, 
subroutine  "Ccm__group"  is  read  in  from  the  diskette  and  executed.  This 
group  should  be  more  logically  named  "PLOTTING  GROUP"  as  it  is  concerned 
with  defining  the  type  of  plot  portrayal  for  the  data,  X  and  Y  axis 
labeling,  and  whether  the  plot  will  be  placed  on  the  CRT,  printer,  or 
remote  four-color  plotter. 

K14  PLOT  t.tmtts.  When  function  key  14  is  activated,  subroutine 
»Plot__group"  is  read  in  from  the  diskette  and  executed.  The  purpose 
of  this  group  is  to  establish  the  plot  limits,  location  and  scale  and 
to  identify  whether  the  plot  is  new  or  will  be  an  overlay  on  an  old  plot. 
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AK4  COMMAND  DUMP.  This  key,  which  means  "shift  key  4",  activates 
function  key  20  which  causes  subroutine  "C  dump"  at  line  7425  of  the 
main  program  to  be  executed.  Depressing  the  shift  and  key  4  simultan- 
eously causes  the  series  of  commands  in  the  local  command  file  to  be  listed 
by  the  integral  thermal  printer  for  inspection. 

Main  Program  Listing 

The  main  program  consists  of  numerous  subroutines  which  are 
executed  in  an  order  dependent  on  the  desires  of  the  user.  Table  D-l 
summarizes  the  functions  of  the  various  subroutines  which  make  up  the 
main  program.  A  complete  listing  of  the  main  program  follows  Table  D-l. 
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TABLE  D-l  MAIN  PROGRAM  SUBROUTINES 


LINE  # 

525,  560, 
595,  630 
670,  1500 
3190,  3230 
4725,  5730 
6835 

425 


355 
385 


815 


1185 


1320 


1590 
2165 

2375 
2550 
2705 


NAME  FUNCTION 

SUB  KEY  N      When  function  key  N  is  pressed, 

a  subroutine  stored  on  the  diskette 
is  transferred  to  a  particular 
RAM  location  and  executed. 


Main  Menu       Displays  the  5420  Unit  Group  Menu 
on  the  CRT. 

Clear         Clears  the  top  20  lines  of  the  CRT  display. 

Putline        Displays  a  line  in  a  specified 
format  on  the  CRT. 

Send  Sends  a  series  of  commands  in  a 

command  file  to  HP5420 

Shorty         Shortens  a  tied-data  set  spanning 
5  decades  of  frequency  to  183 
data  points  equally  spaced  over 
the  log  frequency  range. 

Mode  Stored  in  RAM,  called  by  depressing 

Key  5.  Allows  user  to  select 
whether  a  command  file  in  RAM 
should  be  executed  immediately 
or  stored;  or  if  stored,  command 
file  should  be  executed. 

EditL  Subroutine  which  permits  editing  of 

a  command  file. 

Isr  Identifies  status  codes  of  HP5420 

during  execution  of  a  command  file 
and  tells  computer  what  to  do  about 
them. 

Make  plot      Sends  data  on  the  interface  bus 

~         between  HP5420  and  HP9845  depending 
on  status  code  identified  in  Isr. 

Del  com       Stored  in  RAM,  called  by  depressing 
key  10;  deletes  all  commands  from 
local  command  file. 

Savrec         Saves  or  recalls  data  for  single 
bandwidth  data  set  collected  by 
HP5420. 
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LINE  # 
3085 

3130 

3285 
3310 

3435 


NAME 


Table  D-l — continued. 


FUNCTION 


3565 

Group  menu 

3660 

Label 

3770 

Sys 

4155 


4265 


4765 


5020 


5775 


Adc  ovrflo     Beeps  when  Analog  to  Digital 

converter  encounters  an  overflow 
condition  during  a  run. 

C  err         Converts  HP5420  status  codes  into 
~  error  identification. 

Clear  line     Clears  a  line  of  the  command  file. 

Get p         A  subroutine  used  by  the  keys 

which  permits  HP5420  command  set-up. 
Prompts  for  the  command  information. 

Shifty         Renumbers  command  file  when 
command  deleted  or  added 

Function  unknown. 

Label  a  plot  format. 

System  codes  are  discussed  in 
more  detail  later.  This  subroutine 
contains  the  logic  introduced  into 
the  command  file  through  the  use 
of  a  particular  system  code. 

Movr  Renames  real  and  imaginary  data 

points  to  a  form  which  can  be 
plotted. 

Data file      Stores  and  recalls  data  sets 

collected  by  HP5420. 

Tie  Ties  consecutively  gathered  data 

sets  together  discarding  lot 
resolution  overlapping  data, 
creating  a  tied  data  set. 

Linearc        Generates  plot  parameters,  labels 
and  draws  axes  for  a  plot. 

Datam  Subroutine  to  manipulate  data  sets  as 

directed  by  system  codes.  For 
example,  swaps  real  and  imaginary 
arrays  or  scales  real  and  or 
imaginary  by  a  constant. 
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Table  D-l — continued. 


LINE  # 
6045 

6670 
6880 

7210 


8560 
8600 

9330 


NAME 
Abuild 

Plfix: 
Plot__fix 

Smoothr 


7320 

Smooth 

7425 

C  drop 

7485 

S  plot 

7705 

Zero  data 

7860 

Pen  file 

7975 

Del  files 

8080 

LI 

8205 

Points 

FUNCTION 

Builds  appropriate  arrays  of 
data  for  plotting  all  desired 
formats. 

Locates  the  position  and  deter- 
mines the  scale  of  the  desired  plot. 

Uses  system  code  information  to 
obtain  plotting  information  for 
Plfix. 

Contains  logic  based  on  system 
codes  for  determining  how  a 
data  set  should  be  smoothed. 

Performs  a  data  smoothing  algorithm 
on  a  data  array. 

Activated  by  shift  key  4;  dumps 
contents  of  the  local  command  file 
to  the  thermal  printer  of  the  HP9845. 

Contains  plotting  logic  based  on 
system  code  information. 


Zero  data  sets  Assigns  all  values  of  a  named 
data  file  to  zero. 


Permits  a  command  file  to  be 
renamed. 

Permits  a  command  file  to  be  deleted. 

Function  unknown. 

Permits  the  cursor  to  be  moved  along 
a  plotted  data  array  to  identify 
coordinates  of  specified  points. 
Enabled  with  system  code  41. 


Pointr 
Least 

Fit 


Function  unknown. 

Performs  a  least  squares  analysis 
on  data. 

Allows  user  to  select  a  region  of 
data  over  which  a  least  squares  fit 
is  performed. 
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Table  D-l — continued. 

LINE  # 

NAME 

FUNCTION 

9865 

Swap  scale 

Function  unknown. 

10050 

Unswap  scale 

Function  unknown. 

10175 

Antol 

A  complicated  net 

10565 

11315 
11585 
12030 

12420 

13045 
13420 


Lsfit 

Lsauto 
Manul 


data. 

Performs  a  linear  least  squares 
fit  on  data,  plots  it  and  deter- 
mines equation  of  line. 

Function  unknown. 

Function  unknown. 


Region  intrest  Determines  a  region  of  interest 
over  which  data  may  be  evaluated 
by  a  fitting  technique. 

Analysis       Performs  graphical  analysis  on 

five  types  of  plots,  fitting  data 
to  three-element  network  model. 

Remove         Deletes  data  points  in  the  vicity 
of  60  Hz  and  its  harmonics. 

Command  file    Permits  saving,  appendings  and 

recalling  command  file  stacks  by  name. 
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Main  Program  Listing 


1  ! 

2  ! 

3  ! 

4  ! 
3   OPTION  BASE  1 

10  C0I1  Comm and* < 200 ),Number_commands, Mode*, Menu,  A3420,Uor d*( 200 ',  Pre fi  x*'.200) 

13  COM  Editf*,Edit  1 ine,B5420, SHORT  Pdat a< 1 > , Npr i nt , Sdat a<526 > , Nsave , St  at 

20  COM  Fi le*,SH0RT~State<l),Ry<512), I x<512) , Sz< 30) , XH nt, Tc , Tf , T i , Np,  SI  ope  ,  PI 

,P2 

25  COM  SHORT  Xst art  ,  Xstep,  Rye < 1336) , Ixc < 1536) , Frc < 1536) , Cp, Int ercept , Frequene 

y 

30     COM  SHORT  PI  im,Pxo,Pxm,Pyo,Pym,Ploc,Xo,Xm,  Yo,  Ym, Psc al e, Xm i n, Xmax,  Ymm,  Ymax 

, Paxi  s 

35     COM  SHORT  Cur,  Pol  y ,  Ls-f  ,  Sf  1  g,  Regi  on,  Pf  1  g,  Pst  art ,  Pst  op,  Dl ,  D2,  D3  ,  D4  ,  D5,  D6,  D7, 

D8.D9 

48  COM    SHORT  Find_points, Paper, B! ue, Bl ack ,0nn, Of f,Sk ip, Device, Pager , Nopager 

45  COM    SHORT  Tpscale,Txmin,Txmax,Tyiinn,Tyi»ax,Tnpts,Tx< 128), Ty< 128),  Tf lg,X6©,E 

30  COM    SHORT    Dp»cal  e,  Dxmi n,  Dxmax, Dymin, Dymax, Dnpts, Df lg,P1 ots, Cut , Nocut , Ti me* 

[20] 

53     !  COM  SHORT  CPX, XTPC 1536) , CPC, CTPC 1536 ) 

68     D9— 1 

65     Region«0 

78     Paxi*»0 

75     Sflg»8 

80     Pflg-0 

85     L»f-0 

90     Editf*-"  " 

95     B5420-0 

100    Pseaif-13 

105    Nu«ber_eommands»0 

110    Onn»l  ~ 

115    Off-1 

120    Blue«0 

125    Black-1 

130    Pager-1 

135    Nopager«0 

140    Every"0 

145    X60-1 

150    Frequency»Euery 

153  A5420-704  !   ADDRESS  OF  5420  UNIT 

168  ON  INT  «7, 12  CALL  Isr 

165  CONTROL  MASK  7; 128 

178  CARD  ENABLE  7 

175  PRINTER  IS  16 

188  ASSIGN  «6  TO  "5428LF:F9" 

185  Fi  le«-"5420LF:F9" 

190  READ  #6;Number  commands 

195  MAT  READ  «6; Command*, Word*, Pr«f i x* 

288  ASSIGN  •  TO  «6 

205  ON  KEY  »15  GOTO  285 

218  ON  KEY  «8  CALL  Key  8  'Setup  group 

215  ON  KEY  »1  CALL  Key^l  I Cursor_group 

228  ON  KEY  #2  CALL  Key^2  ! Di spl ay_group 

225  ON  KEY  »3  CALL  Key~3  ! Contro l^group 

238  ON  KEY  #4  CALL  Key~4  ! Special  group 

235  ON  KEY  #5  CALL  Mode 

240  ON  KEY  #6  CALL  Key  6  ! Command  file 

245  ON  KEY  «9  CALL  EdiTl 

258  ON  KEY  #10  CALL  Del  com 

255  ON  KEY  111  CALL  Key^U  !Mu1  file 

260  ON  KEY  tl2  CALL  Key  12  ! COM~group 

265  ON  KEY  »7  CALL  Key_7    IDfiTe 

270  ON  KEY  te  CALL  Key~8    IDmanip 

275  ON  KEY  «14  CALL  Key  14  !Plot  group 

288    ON  KEY  §28  CALL  C~dmp 
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Main  Program  Listing— continued. 


285 

290 

295 
380 
395 
310 
315 
328 
325 
330 
335 
348 
345 
350 
355 
360 
365 
370 
375 
389 
385 
390 
395 
408 
485 
410 
415 
420 
425 
433 
435 
440 
445 
458 
455 
460 
465 
478 
475 
480 
485 
490 
495 
500 
505 
513 
515 
520 
525 
538 
535 
548 
545 
550 
555 
563 
565 
578 
575 
588 
585 
590 
595 
600 
605 
610 
615 


CALL  Miimitnu 

Menu"15 

IF  lltnuOi;  THEN  283 

GOTO  295 

STOP 


SUBROUTINES  USED  IN  THIS  PROGRAM 


SUBROUTINE  TO  CLEAR  THE  TOP  20  LINES  OF  DISPLAY 

SUB  Clear 

PRINT  CHRf<12) 

SUBEND 

j 

!  SUBROUTINE  TO  HOVE  CURSOR  ABOUT  SCREEN 

SUB  Putl in«<Ir, Ic.Af > 

PRINT  USING  "t,3A,2D,  A,2D,  A,  K"  ;  CHR*(27)8,"8.a"  ,  I  r  ,  "r 

SUBEND 

I 

!  SUBROUTINE  TO  DISPLAY  MAIN  MENU 

! 

SUB  M*inm«nu 

CALL  Cl**r 

CALL  Putl in«(8, 21, "5420  ANALYSIS  UNIT  GROUP  MENU") 

CALL  Putl in«<2,27, "K0 

CALL  Put  1 in«<3,27, "Kl 

CALL  Putl ir.«<4,27, "K2 

CALL  Putl ineC5,27, "K3 

CALL  Putl in»<6,27, "K4 

CALL  Putl in»<7,27, "K5 

CALL  Put  1 in»<8,27, "K6 


',  Ic,  "C"  ,  US 


SETUP") 
CURSOR") 
DISPLAY") 
CONTROL") 
SPECIAL") 
MODE") 

COMMAND  FILE  FUNCTIONS") 
DATA  FILE  FUNCTIONS"  > 
DATA  MANIPULATIONS"  ' 
EDIT  FUNCTIONS") 
DELETE  LOCAL  COMMANDS") 
FILE-OF-FILES") 
COMPUTER  OPERATIONS") 

PLOT  LIMITS") 
■   COMMAND  DUMP") 


CALL  Putl ine<9,27, "K7   * 
CALL  Putl in«<10,27, "K8 
CALL  Put  1 ine< 1 1 ,27, "K9 
CALL  Putl ine<12,27, "K10 
CALL  Putl in»<13,27, "Kit 
CALL  Putl ine<14,27, "K12 

CALL  Putl int<13,27, "K14 
CALL  Put  1 in»<16,26, "*K4 

CALL  Putlin»<18, 24, "STRIKE  DESIRED  KEY 

SUBEND 


SUB  K«y_0 

OPTION  BASE  1 
LINK  "KEY_0:F9", 13429 

CALL  S«tup_group 
SUBEND 


SUB  Key  1 
OPTION~BASE  1 
LINK  "KEY_l:F9", 13420 
CALL  Cursor  group 
SUBEND 


SUB  K«y_2 
OPTION  BASE  1 
LINK  "KEY  2:F9", 13420 


147 


Main  Program  Listing — <x>ntinued. 


CALL  Display  group 
SUBEND 


SUB  Key  3 
OPTION~BASE  1 
LINK  "KEY_3:F9", 13420 
CALL  Control  group 
SUBEND 


623 

625 

638 

635 

640 

645 

650 

655 

668 

665 

670 

675 

680 

665 

690 

695   SUB  Kty  4 

700  OPTION  BASE  1 

705    COM  Command* <*> , Number_commands , Mode*, Menu, A5420,  Word*<*> ,  Prefix*'  *> 
COM  Editf*,Edit_1 ine,B54 20 .SHORT  Pdat a< * > , Npr i nt , Sdat a<* > , Ni awe, St  at 
COM  Fi 1e*,SH0RT-StateC*),Ry<»>, Ix<* > , Sz (* > , XI i ne, Tc , Tf , T i , Np , S 1  ope, PI , P2 
COM  SHORT  Xst  art , Xst  cp, Rye  <*>, I xc<*),Frc<*>,Cp, Intercept, Frequency 
COM  SHORT  PI l m, Pxo, Pxm, Py o, Pym, PI oc , Xo, Xm, Yo, Ym, Psc al e , Xm i n, Xn.ax, Ymi n, Ymis 


COM  SHORT  Cur,Poly,Lsf,Sflg,Region,Pflg,P£tart,Pitop,Dl,D2,D3,D4,D5,B6,D7, 

COM  SHORT  Fi  nd_points, Paper, Bl ue, Bl ack , Onn, Of f , Sk l p, Devi  ce , Page -r , Hop ager 
COM  SHORT  TpscaIe,Txmin,Txm ax, Tymin,Tymax,Tnpts,Tx(*),TyC*),Tflg,::60, Every 
COM  SHORT  Dpscale,Dxmin,Dxmax,Dymin,Dymax,Dnpts,Dflg,Plots,Cut,Nc":ut,Time* 

IF  D9<>4  THEN  LINK  "KEY_4: F9" , 1 3420 

CALL  Special  group 

D9"4 

SUBEND 


SUBROUTINE  TO  SEND  COMMANDS  TO  5420 
CALL:       CALL  SEND 


710 

715 

720 

725 

,  P  ax  i  s 

738 

D8.D9 

735 

740 

745 

C20] 

756 

755 

760 

765 

770 

775 

780 

785 

790 

795 

800 

805 

810 

815    SUB  Send 

820    OPTION  BASE  1 

825  COM  Command* <*> , Number_commands,  Mode*,  Menu,  A5420,  Uord*<*> , Pref i  .<*■».■ 

838  COM  Editf*,Edit_l ine,B5420, SHORT  Pdata<* ) , Npr 1 nt , Sdat a<*> , Nsaue, St  at 

835  COM  Fi 1e*,SH0RT_State<*>,Ry<*), IxC * ) , Sz< * > , XI i ne , Tc , Tf , T i , Np, SI  ope, PI , P2 

840  COM  SHORT  Xstart , Xstep, Rye (*> , Ixc <•> , Fre <*) , Cp, Intercept , Frequency 

845  COM  SHORT  PI i ft, Pxo, Pxm, Pyo, Pym, PI oc , Xo, Xm, Yo, Ym, Psc al e, Xmi n, Xma>, :, Ym in,  Yma>  ,  P 

ax  i  s 

850  COM  SHORT  Cur , Po 1 y , Lsf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4, D5, D6, D7,  DS 

.09 

855  COM  SHORT  F i nd_poi nts, Paper , Bl ue , Bl ack , Onn, Of f, Sk i p, Deui c e, Pager , Nopager 

868  COM  SHORT  Tpscal  e,  Txmi  n,  Txmax,  Tymi  n,  Tymax,  Tnpt  s,  Tx<*> ,  Ty  <♦  ) ,  Tf  1  g,  X60,  Ever;-' 

865  COM  SHORT  Dpseal  e,  Dx»i n, Dxmax, Dymi n, Dymax, Dnpt s, Df 1 g, PI ot s , Cut , Nocut , T i me*C2 

03 

870  I  COM  SHORT  CPX,XTP<*>,CPC,CTP<«> 

875    DIM  L*C253 

ON  KEY  #16  COTO  Bye 

Lower* 1 

UppersNumber  commands 

!  DETERMINE  UPPER  BOUND  BASED  ON  MODE 
IF  Mode*"" inn"  THEN  Louer»Number  commands 
IF  Mode*«"EXE"  THEN  Upper»Number-commands 


680 
885 
890 
895 
900 
905 
910 
915 
920 


!   inMEDIATE  MODE 
!  SEND  STORED  COnMANDS 


IF  Mode*-"EXE"  THEN  CALL  Put  1 i ne< 15, 25, "COMMANDS  BEING  ACTED  UPON' 
LOOP  TO  SEND  COMMANDS  TO  5420 
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925   ! 

930   Length«0 

935    FOR  J«Low«r  TO  Upper 

940      Xlmt«J 

945      Command* < J > -TRIM* (Command* < J) > 

950      L«ngth»L*ngth+LEN< Command* < J) > 

955       IF    Tc-0    THEN    975 

960   PRINTER  IS  0 

965   PRINT  J;Coamand*(J> 

970   PRINTER  IS  16 

975    IF  Command*<J>tl,2]-".""  THEN  GOTO  1150 

960    L*-"" 

985     L*«CHR*<129>«."   " 

990    L*-L*tVAL*<J> 

995    L*-L*l"   -   " 

1000   L*-L*tCommand*<J> 

1005   IF  Command* C  J  >»"*SYS*"  THEN  L**L*«."   "tPrtf  i  x*<  J) 

1010   Lx«LEN<TRIM*<L*>> 

1015    FOR  J1x-Lx*l  TO  23 

1020   L*-L*fc" 

1025   NEXT  Jlx 

1030   L*[24,25]»CHR*<128)8.CHR*<128> 

1035   CALL  Putl in»(28,0,L*) 

1048  IF  Command*<J>»"*SYS*"  THEN  GOTO  1068 

1045  IF  Pref  ix*<.  J)<  >"3325A"  THEN  OUTPUT  A5428  USING  "K ";  Command*  (  J> 

1050  IF  Pref ix*<J)»"3325A"  THEN  OUTPUT  717  USING  "K" ; Command* < J >& " #" 

1055  GOTO  1080 

1060  Code«VAL<Pref i x*(J>> 

1065  CALL  SysCCode) 

1070  J»X1 int 

1075   GOTO  1150 

1080  IF  POS<Command*<J>, "ST; ")  AND  <LEN(Command*> J ) >=3>  THEN  B5420"l   !  STf 

MMAND 

1085  IF  POSCCommand*<J>, "PL;  ">  AND  CLEN<Command*<J> >»3>  THEN  B5428=l 

1090  IF  POS < Command* < J >, "PL; ">«0  THEN  1125 

1095  lcomma'0 

1100  X*"Command* <J> 

1105  FOR  K«l  TO  LEN<Command*<J>>-l 

1110  IF  X*[K,KJ«","  THEN  I c omrna- Ic omma* 1 

1115  NEXT  K 

1120  IF  Icomma-1  THEN  B5420-1 

1125  IF  POS<Command*CJ), "SA; ")  THEN  B5420«l   !  SAVE  TO  TAPE 'CONTROLLER 

1130  IF  POS < Command* < J), "RA; ">  THEN  B5420-1   !  RECALL  FROH  TAPE -CONTROLLER 

1135  IF  POS < Command* C J),  "RS;  ">  THEN  UIAIT  5000 

1140  !  IF  POS<Command*<J), "GL; ")  AND  (LENC Command* < J) >*3 >  THEN  B5428=l 

L 

1145  IF  B5420  THEN  1145 

1150   NEXT  J 

1155  !  ONCE  YOU  HAVE  EXECUTED  COMMANDS,  SET  MODE  TO  STORE 

1160   IF  Mode*»"EXE"  THEN  Mode*»"ST0" 

1165  Bye:   ' 

1170   CALL  Pull ine<20,5, "  "tCHR*<128>> 

1173   Menu— 100 

1180   SUBEND 

1185   I 

1190   ! 

1195   ! 

1200   ( 

1205   SUB  Shorty<SHORT  Cp, Rye <»> , Ixe <*> , Frc ( * > > 

1210   OPTION  BASE  1 

1215   Oldcp-Cp 

1220   1-17 

1225   K-18 

1230   D_1og-.027 

1235   FOR  J-18  TO  200 

1240   Freqen-10M-l*D_log»J> 
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1245   FOR  L»K  TO  Cp 

1256   K«L 

1255   IF  FrcfKXFrtqtn  THEN  Next  1 

1260   1-1*1 

1265   Ryc<I)-Ryc<K) 

1270   IxcCI)-Ixc(K) 

1275   Fre<I)-Frc<K) 

1280   GOTO  Ntxtj 

1285  Nextl :   NEXT  L 

1290  Nextj:   NEXT  J 

1295   Cp-I 

1300   FOR  J-Cp+1  TO  Oldcp 

1305   Ryc<J)«IxcU)"Frc<J)»0 

1310   NEXT  J 

1315  SUBEND 

1320   ! 

1325  !  SUBROUTINE  TO  SET  MODE 

1330  !  CALL:      CALL  MODE 

1335 

1340 

1345 

1350  SUB  Mod* 

1355  OPTION  BASE  1 

1360  COM  Commands*:*),  Number_commands  ,  node* , nenu, A5420,  Uord*>'*> , Pref i  xf  < 

1365  COn  Editf*,Edit  1 i ne, B5420, SHORT  Pdat a< * > , Npri nt , Sdat a< * ) , Nsau«, St  it 

1370  COn  Fi Itl, SHORT~S t at e(*),Ry(*), Ix<»> , Sz<«) , XH n«, Tc , Tf , Ti , Np,  Slop*,  P1.P2 

1375  COn  SHORT  Xst art , Xst «p, Rye < * ) , I xc < * > , Frc <*) , Cp, Int ere ept , Frequenc y 

1380  COn  SHORT  PI i m.Pxo, Pxm, Pyo, Pym.Pl oc, Xo, Xm, Yo, Ym.Pscal e, Xmt n, Xmax, Ymi n,  Ymax, 

Paxi  s 

1385  COn  SHORT  Cur, Po 1 y , Lsf , Sf 1 g, Regi on, Pf 1 g, P$t art , Pst op, D 1 , 32, 33 , D4, 35 , D6, D7,  3 

8,09 

1398  COn  SHORT  F t nd_po i nt s , Paper , Bl u« , B 1 ack , Onn, Of f, Sk i p, Dev i ce, Pager , Nopagsr 

1395  COn  SHORT  Tpsc  al  e,  Txmi  n,  Txmax,  Tymi  n,  Tymax  ,  Tnpt  s,  Tx<*  ) ,  Ty  (  *> ,  Tf  1  g,  X60,  Every 

1400  COn  SHORT  Bpscal e, Dxmi n, Bxmax, Bymi n, Bymax, Bnpts, Bf 1 g, PI ots, Cut , Nocut , Ti m**[ 

20: 

1405  !  COn  SHORT  CPX,XTP(*>,CPC,CTP<*) 

1410  CALL  Clear 

1415  node*-" 

1420  CALL  Put  Hne<0,26,  "HOBE  CONTROL  nENU") 

1425  CALL  Put lin»(4, 18, "WHICH  n03E  30  YOU  WISH  TO  OPERATE  IN  ?") 

1430  •  CALL  Put  1  me<6,  15, "I-innEBIATE  EXECUTION  OF  COnnHNBS") 

1435  CALL  Put  1 ine<7, 15, "S-STORE  COnnANDS  FOR  EXECUTION  LATER") 

1440  CALL  Put  1 me<8, 15, "X-EXECUTE  STOREB  INSTRUCTIONS"; 

1445  CALL  Put  1 ine<10, 12, "INPUT  YOUR  CHOICE  *") 

1450  nenu>5 

1455  LINPUT  Choice* 

1460  IF  Choice*»"I"  THEN  node*" 

1465  IF  Choice*»"S" 

1470  IF  Choice*""X" 

1475  IF  Choic«*»"0"  THEN  1495 

1480  IF  Mode*""  "  THEN  1410 

1485  IF  Mode*«"EXE"  THEN  CALL  Send 

1490  WAIT  2000 

1495  SUBEND 

1500  ! 

1505  ! 

1510  SUB  Key  6 

1515  OPTION  BASE  1 

1520  COn  Command* <*),  Nut»ber_e ommands, node*, nenu, A5420, Word* <*), Pref ix*<*) 

1525  COn  Editf*,Edit  1  i ne,  B5420,  SHORT  Pdat a< ») , Npr i nt , Sdat a<») , Nsave  ,  St  at 

1530  COn  Fi l**,SH0RT~State<O,Ry<*), Ix(*) , Sz<») , XI i ne, Tc , Tf , Ti , Np, SI  ope, PI , P2 

1535  COn  SHORT  Xst art , Xst ep, Rye (»>, Ixc <•), Frc <•), Cp, I nt ercept , Frequency 

1540  COn  SHORT  PI  im,Pxo,Pxm,Pyo,Pym,Ploc,Xo,Xi»,  Yo,  Ym,  Psc al e, Xmi n, Xmax,  Ymm,  Ymax, 

Pax  is 

1545  COM  SHORT  Cur , Pol y , Lsf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , 32, 33, B4, 35, 36, 37, D 

8,39 


■inn" 

THEN  node*""ST0" 
THEN  node*»"EXE" 
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1350  COM  SHORT  Fi nd_poi nts, Paper, Bl ue, Bl ac k , Onn, Of f , Sk i p, Devi c e , Pager , Nop iger 

1335  COM  SHORT  Tpscal *, Txmi n, Txmax, Tym i n, Tymax , Tnpt s, Tx< » ) , Ty ( *) , Tf 1 g, X£0, Ever y 

1560  COri  SHORT  DpSC  al  t,  Dxai  n,  Dxnaax,  Dymi  n,  Dymax,  Dnpt  I ,  Df  1  g,  Pt  ots  ,  Cut ,  Noc  ut ,  Ti  me*  C 

28] 

1363  !  COM  SHORT  CPX, XTP(e) , CPC, CTP<» > 

1570  LINK  "KEY  6:F9", 13420 

1575   CALL  Command  fi 1* 

1580   D9-6 

1585   SUBEND 

1598  ! 

1393  ! 

1688  ! 

1685  !  SUBROUTINE  TO  PERFORM  EDITING 

1618  !  CALL:      CALL  EDITL 

1613  SUB  Editl 

1628  OPTION  BASE  1 

1625  COM  Command*(*) , Number_commands, Mode*, Menu, A3420, Word*' *) , Pref i  x$> '  *  > 

1630  COM  Editf*,Edit  1 i ne, B5420, SHORT  Pdat a( *) , Npri nt , Sdat a< * ) , Nsave, St  at 

1635  COM  Fi le*,SH0RT-State(O,Ry(»>, Ix(*>,Sz(*),Xline,Tc,Tf,Ti , Np, SI  ope , PI , P2 

1640  COM  SHORT  Xst art , Xst ep, Rye (»>, Ixc <*), Frc (*), Cp, Intercept , Frequency 

1645  COM  SHORT  PI  i  m,  Pxo,  Pxm,  Pyo,  Pym,  PI  oc  ,  Xo,  Xm,  Yo,  Ym,  Psc  al  e,  Xmi  n,  Xwi.. ,  Ym  l  n,  Ymax , 

Pax  is 

1650  COM  SHORT  Cur , Po 1 y , Lsf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4, US, Do, D7, D 

8.D9 

1655  COM  SHORT  F i nd_poi nt s, Paper , Bl ue , B 1 ac k , Onn, Of f , Sk i p, Dtu i c e , Pager , Nop  age r 

1660  COM  SHORT  Tpscale, Txmi n, Txmax, Tymi n, Tymax, Tnpt s, Tx( * ) , Ty < * ) , Tf 1 g, X*0, E^er y 

1663  COM  SHORT  Dpscal e, Dxmi n, Dxmax, Dymi n, Dymax, Dnpt s , Df 1 g, PI ot s, Cut , Nocut , T i me  * C 

20] 

1670  !  COM  SHORT  CPX, XTP( * > , CPC, CTP( » ) 

1675  Begin:  > 

1680  Edi tf*«"EDIT" 

1683  CALL  Clear 

1690  CALL  Put  1  ine(0, 26, "EDITING  FUNCTION  MENU") 

1695  CALL  Putl ine<2,5, "YOU  CAN  DO  THE  FOLLOWING  EDITING:") 

1700  CALL  Put  1 ine(4, 10, "A-ADD    D-DELETE    R«FEPLACE    E-EXIT   L  =  LIST   S-SYNTHES 

I2ER") 

1705  CALL  Put  1 ine(6,3, "INPUT  YOUR  CHOICE  *") 

1710  INPUT  Choice* 

1715  IF  Choice*»"A"  THEN  Add_l i nes 

1728  IF  Choiee*-"D"  THEN  Delete  lines 

1725  IF  Choice*«"R"  THEN  Add  line* 

1730  IF  Choiee*-"E"  THEN  2823 

1733   IF  <Choiee*-"Q">  OR  (Choi ce*»"S" )  THEN  Add  lines 

1748   IF  Choice*»"L"  THEN  CALL  C  dmp 

1745  IF  Choice*-"8"  THEN  2025 

1758  BEEP 

1733  GOTO  1685 

1768  Add  1 ines:  ! 

1765  IF  7Choice*«"A")  OR  (Choi ce*«"Q" )  OR  (Choi ce*="S"  )  THEN  Edi t f *=" ABE" 

1778  IF  Choice*-"R"  THEN  Editf*»"REP" 

1773  CALL  PutHne(9,5, "AT  WHAT  COMMAND  DO  YOU  UISH  TO  ADD'REPLACE  *"> 

1788  INPUT  Edit  line 

1785   IF  Edit  l7ne<-0  THEN  GOTO  Begin 

1798   IF  (Cho~ce«-"Q")  OR  (Choi ce*-"S" )  THEN  1800 

1795   GOTO  1875 

1800   CALL  Shifty(l) 

1885   PRINT  "COMMAND*-?" 

1810   LINPUT  Command*(Edi t  line-1) 

1815   IF  Choice*-"S"  THEN  Pref i x*(Edi t_l i ne-1 )«"3325A" 

1820   IF  Choice*-"S"  THEN  1835 

1825   PRINT  "PREFIX*-?" 

1838   LINPUT  Prefix*(Edit  Hne-1) 

1835   IF  Pref i x*( Edi t_1i ne-1 >-"3325A"  THEN  Mord*(Edi t_l i ne- 1 )»" **  SYNTHESIZER  ** 

1848   IF  Prefix*(Edit  H ne-1 >-"3323A"  THEN  1835 

1843   PRINT  "U0RD*-'"~ 

1858   LINPUT  Word*(Edit  line-l> 
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1855  IF  Edi t  1 tne>Number_comi»ands  THEN  Humberj ommands=Number_c ommands+1 

I860  IF  Editf»»"ADD"  THEN  Number_commands»Numb*r_commands+ 1 

1865  GOTO  Begin 

1878  CALL  Put  lined  1,7,  "YOU  MAY  ADD/REPLACE  THE  FOLLOUING  TYPES:") 

1875  CALL  Putline(13,10,"l-SETUP        2»CURS0R        3-DISPLAY        4-C0NTR0L" 

1888  CALL  Putline(14,10,"5«SPECIAL      6=C0MPUTER      7-DATA  FILES     8=DfiTA  MAN 
IP.  ") 

1885   CALL  PutHntUS,  10,"9»PLOT  LIMITS") 
1898  CALL  Putline(16, 14, "INPUT  YOUR  CHOICE*") 
1895  INPUT  Croup 

1980  IF  Group<»0  THEN  GOTO  Begin 
1905  IF  CroupOS  THEN  D9— 1 
1910  IF  Group"l  THEN  CALL  Key_0 
1915  IF  Group"2  THEN  CALL  Key_l 
1920  IF  Group-3  THEN  CALL  Key_2 
1925  IF  Group-4  THEN  CALL  Key_3 
1930  IF  Group"5  THEN  CALL  Key_4 
1935   IF  Group-7  THEN  CALL  Key  7 

1940   IF  (Group-6)  AND  (Choi ce*<>"R" )  THEN  CALL  key_12 
1945   IF  (Group"6)  AND  (Choi ce*»"R" )  THEN  1988 
1950   IF  (Group-8)  AND  (Choi ce*< >  "R" )  THEN  CALL  Key_8 
1955   IF  (Group-8)  AND  (Choi ce*»"R" )  THEN  1980 
1968   IF  (Group»9)  AND  (Choi ce*<>"R" )  THEN  CALL  Key_14 
1965   IF  (Group"9>  AND  (Choi c ef »"R"  )  THEN  1980 
1970  !  IF  Group<>6  THEN  6700 
1975   GOTO  2000 

1988   BEEP  _„  „ 

1985   PRINT  "REPLACE  NOT  AVAILABLE  WITH  GROUPS  »6,8,9  —  SOPR  . 
1990   WAIT  2008 
1995   GOTO  1685 

2800  IF  (Group)"!)  AND  (Group<»9)  THEN  2015 
2005  BEEP 
2010  GOTO  1878 

2815  IF  Editf*»"REP"  THEN  Number_commands  =  Number_comniands- 1 
2828  GOTO  Begin 
2025  Editff""  " 
2030  GOTO  By* 
2035  !  SUBEND 
2040  Del  etc  11 nes:  ! 

2045  CALL  Putl ine(9,5,"ENTER  LINES  TO  BE  DELETED*") 
2050  LINPUT  D1$ 
2055   P«P0S(D1*, ", ") 
2060   IF  P-0  THEN  Start 1"VAL(D1 *) 
2065   IF  PO0  THEN  St  art  1 «VAL( Dl *C 1 , P- 1 ] ) 
2070   IF  PO0  THEN  Stopl«VAL(Dl*CP+n) 
2075   IF  P"0  THEN  Stopl-Startl 

-2088   IF  (St*rtl<»0)  OR  (Stopl<»0)  THEN  GOTO  Begin 
2885   IF  Stopl >"Start 1  THEN  GOTO  2105 
2090  BEEP 

2095  PRINT  "TURKEY  --  ENTER  LINE  NUMBERS  CORRECTLY" 
2100  GOTO  Begin 
2105   Nuober-Stopl -Start  1  +  1 
2110  FOR  N»Startl  TO  Number_commands 
2115   IF  N*Number>280  THEN  2140 
2120  Command»(N) "Command*  (N*Number) 
2125  Pref i  x*(N)»Pref i x*(N*Number ) 
2130  Word*(N)»Word*(N*Number) 
2135  NEXT  N 

2140  Number_commands"Number_commands -Number 
2145  GOTO  Begin 
2150  Bye:  < 
2155  Menu»9 
2160  SUBEND 
2165  ! 
2170  ! 
2175  ! 


152 


Main  Program  Listing— continued. 


3420  INTERRUPT  HANDLING  SUBROUTINE 


2180 
2185 
2190 

2193  SUB  I*r 

2200  OPTION  BASE  1 

2205  COM  Command*  <»> , Number_command»,  Mode*,  Menu, A5420,  Word*  <*>,  Prefix*' ■.-:> 

2210  COM  EditfJ.Edit  1 i ne, B5420, SHORT  Pdat »<*) , Npri nt , SdataCO , Nsaue, St i» 

2215  COM  Fi 1 e«, SHORT~St at •<*> , Ry<» ) , Ix< *> , Sz<*> , XI i ne, Tc , Tf , Ti , Np, S 1  ope , PI , P2 

2220  COM  SHORT  X*t »rt , Xttep, Rye <»), Ixc <»>, Frc <*), Cp, Int ere *pt , Frequency 

2225  COM  SHORT  PI  i  m,  Pxo,  Pxm,  Pyo,  Pym,  PI  oc  ,  Xo,  Xm,  Yo,  Ym,  Pse  a1  e,  Xmi  n,  Xtnax  ,  Ymt  n,  Ynr.ax, 

P*x  l  s 

2230  COM  SHORT  Cur , Pol y , L*f , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4 , D3, D6, D7, D 

8,119 

2233  COM  SHORT  F i nd_poi nt s, P»per, B1 ue, B1 ack , Onn, Of f, Sk i p, Devi ce, Pager , Nop ager 

2240  COM  SHORT  Tp»eal e, Txmi n, Txmax, Tymi n, Tymax , Tnpts , Tx <*>, Tyc *>, Tf 1 g, X66, Every 

2245  COM  SHORT  Dpscal e,  Dxmi n, Dxmax, Dymi n , Dymax , Dnpt s , Df 1 g, PI ots , Cut , Noc ut , Ti m**[ 

203 

2230  !  COM  SHORT  CPX, XTP<»> , CPC, CTP<« ) 

2233  STATUS  A3420;St*t 

2260  !  STATUS  703;P*tat 

2263  Stat-OCTAL<Stat ) 

2270  IF  Ti«0  THEN  2290 

2273  PRINTER  IS  0 

2288    PRINT    Stat.Pitat 

2283  PRINTER  IS  16 

2290  IF  St*t»146  THEN  CALL  Print  data 

2293  IF  Stat-130  THEN  CALL  Make  plot 

2300  IF  Stat-142  THEN  CALL  Make~plot 

2303  IF  Stat»170  THEN  CALL  Make~plot 

2310  IF  <Stat"140>  OR  <Stat-160~  THEN  CALL  Saurec 

2315  IF  <St*t»141)  OR  <Stat-161>  THEN  B3420-1 

2320  IF  (Stat«104)  OR  <Stat«105>  THEN  B5420»0 

2325  IF  <Stat«106>  OR  <Stat"107)  OR  <Stat«U0)  THEN  CALL  C_err 

2330  IF  Stat«181  THEN  CALL  Adc  ovrflo 

2335  CARD  ENABLE  7 

2340  SUBEND 

2343 

2350 

2355 

2360 

2365  SUB  Dummyf 

2370  SUBEND 

2373 

2380 

2385 

2390 

2395 

2400 

2405 

2410 

2415  SUB  Make  plot 

2420   OPTION  BASE  1 

2425  COM  Command*<*>, Number  command*, Mode*, Menu, A3420, Uord*<*> , Pref i x*< .* > 

2430  COM  EditfJ.Edit  1 i ne, B5420, SHORT  Pdat a<* ) , Npr i nt , Sdat at  * ; , Nsave, St  at 

2435  COM  Fi 1 e* , SHORT~St at e<»> , Ry < •  > , Ix< •> , Sz< * ) , XI i ne, Tc , Tf , Ti , Np, SI  ope . PI , P2 

2440  COM  SHORT  Xstart , Xst ep, Rye C«> , Ixc < *> , Frc < * > , Cp, Intercept .Frequency 

2445  COM  SHORT  PI  i m,  Pxo,  Pxm,  Pyo, Pym, PI oc , Xo, Xm, Yo, Ym, P*cal e, Xmi n, Xmax, Ym i n, Ym ax, 

Paxi  s 

2450  COM  SHORT  Cur ,  Pol  y ,  L*f , Sf 1 g, Regi on, Pf 1 g, P*t art , Pst op, Dl , D2, D3, D4, D5, D6, D7, D 

8,59 

2455  COM  SHORT  Fi nd_poi nt*, Paper , Bl ue, Bl ack , Onn, Of f, Sk i p, Deui ce, Pager , Nopager 

2460  COM  SHORT  Tpscal e, Txmi n, Txmax, Tymi n, Tymax, Tnpt s, Tx t*> , Ty<*> , Tf 1 g, X66, E>>ery 

2465  COM  SHORT  Dpscal  e,  Dxmi n,  Dxmax, Dymi n, Dymax, Dnpt *, Df 1 g, PI ot*, Cut , Nocut , Ti me*C 

20: 

2470  !  COM  SHORT  CPX, XTP<»> , CPC, CTPC*> 
2473  IF  Stat-130  THEN  Mplot 


SUBROUTINE  TO  PLOT  DATA 
CALL      CALL  MAKE  PLOT 
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'  TALK 

•?dv 


LISTEN 


SUBROUTINE  TO  DELETE  COMMAND  STACK 
CALL:      CALL  DEL  COM 


2488  IF  St»t»178  THEN  Nplot 

2485  85420-0 

2498  GOTO  By* 

2495  nplot:  ! 

2588  BS428-1 

2585  CONFIGURE  " 

2518  SENDBUS  7; ' 

2515  GOTO  By* 

2528  Nplot:  ! 

2525  B5428-1 

2538  CONFIGURE  7  TALK  -  5  LISTEN 

2535  SENDBUS  7; "?E»" 

2548  By*:  ! 

2545  SUBEND 

2558 

2555 

2568 

2565 

2578 

2575 

2588 

2585 

2598  SUB  D*l  com 

2595   OPTION~BASE  1 

2608  COM  Command* <*>,Number_commands, Mode*, Menu, A5420,Word*  ' '») , Prefix* <*  > 

2685  COM  Editf*,Edit  1  i  n»,  B5420,  SHORT  Pdat  *<.*),  Npn  nt ,  SdataC  *>,  Nsave,  St  at 

2618  COM  F1 1e*,SH0RT~State<*>,Ry<»>, Ix(*) , Sz<»> , XI l ne, Tc, Tf , T1 ,Np,Slop« , P1.P2 

2615  COM  SHORT  X*t art  ,Xstep, Rye <*>,  Ixc >'*> ,  Fre <*>  , Cp,  Int*re«pt , Frequency 

2628  COM  SHORT  PI i a, Pxo, Pxa, Pyo, Pya, PI oe , Xo, X», ¥o, Ym, P»eal *, Xmi n, X»*x, Ymi n, Yaax, 

Paxi  s 

2625  COM  SHORT  Cur  ,  Pol  y ,  Lsf ,  Sf  1  g,  Regi  on,  Pf  1  g,  Pst  art  ,  Pst  op,  Dl ,  D2  ,  D3  ,  D4  ,  DJ  ,  I>6,  D?,  D 

8.D9 

2638  COM  SHORT  Fi nd_poi nts , Paper , Bl u«, Bl aek , Onn, Of f , Sk i p, Devi c e. Pager . Nopager 

2635  COM  SHORT  Tpscal e,  Txmi n,  Txmax, Tymi n, Tymax, Tnpts, Tx(*> , Ty (*  '■ , Tf 1 g, "60, Every 

2640  COM  SHORT  Dpscal  e,  Dxmi n,  Dxmax , Dym i n, Dymax, Dnpt s, Df 1 g, PI ot s , Cut , Noc ut , Ti me*C 

281 

2645  I  COM  SHORT  CPX, XTP( *> , CPC, CTPC *) 

2650  CALL  Clear 

2655  CALL  Put  1 in*<3, 26, "COMMANDS  BEING  DELETED") 

2660  FOR  J"l  TO  Number_commands 

2665  Command*(J>""" 

2678  Pr*f ixl(J)»"* 

2675  Word*<J)-"" 

2688  NEXT  J 

2665  Number  commands"© 

2698  WAIT  580 

2695  n«nu-18 

2780  SUBEND 

2785 

2710 

2715 

2728 

2725 

2738 

2735 

2748 

2745 

2758 

2755  SUB  Savrec 

2768  OPTION  BASE  1 

2765  COM  Coaaand*<*>, Number  command*, Mode*, Menu, A5428, Uord*< *>, Pref i x*< * > 

2770  COM  Editf*,Edit  1 i ne, B5420, SHORT  Pdat a<*> , Npr i nt , Sdat av *> , Nsave, St  at 

2775  COM  Fi 1 e*, SH0RT~St ate<*> , Ry (•> , Ix<«> , Sz<*> , XI i ne, Tc , Tf , Ti , Np, SI  ope, PI , P2 

2788  COM  SHORT  X*t art , X»tep, Rye <•>, Ixc <*>, Frc <•>, Cp, Intercept , Frequency 

2785  COM  SHORT  PI i a, Pxo, Pxa, Pyo, Pya, PI oc , Xo, X», Yo, Ym, Pscal e, Xai n, Xmax, Ymi n, Ymax 

Paxi* 


subroutine  for  save  -  recall  of  data 
call:     call  savrec 


154 


Main  Program  Listing--continued. 


2799  COM  SHORT  Cur , Pol y , Lsf , Sf 1 g, Rtgi on, Pf 1 g, Pst art , Pst op, Dl , 1)2, D3, D4 , D5, B6,  D7,  D 

8,119 

2793  COM  SHORT  Fi nd_poi ntj, Paper, Bl ue, Bl ack , Onn, Of f, Sk i p, Devi c e , Pager , Nopager 

2880  COM  SHORT  Tpscal e,  Txni n, Txmax, Tymi n, Tymax , Tnpts, Tx< *>, Ty( »>, Tf 1 g, Xt8, Every 

2885  COM  SHORT  Dpscal e, Dx«i n, Dxmax, Dymi n, Dymax, Dnpt s, Df 1 g, P 1 ot s , Cut , Nocut , Ti me*C 

28] 

2810  I  COM  SHORT  CPX, XTP<#> , CPC, CTPC* > 

281S   SHORT  T»»pa<16) 

2828   ON  ERROR  GOTO  Trouble 

2825   COTO  2845 

2838  Trouble:   IF  ERRN-153  THEN  2928 

2835   PRINT  "SAV/REC  DATA  ERROR:  ";ERRN 

2848   STOP 

2845  IF  Stat«140  THEN  Readln 

2858  IF  Stat-168  THEN  Sendout 

2855  Readin:  ! 

2868   ! 

2865   MAT  Sdata-ZER 

2878   MAT  Ry-ZER 

2875   MAT  Ix"ZER 

2888  FOR  J-i  TO  16 

2885  ENTER  A5428; Tempa< J) 

2895  NEXT  J 

2988  Dt»BINAND<Tempa(5>,3> 

2985  IF  Dt»2  THEN  Np«Tempa< 3 >'2 

2918  IF  Dt"3  THEN  Np«Tempa<3> '4 

2913   REBIM  Sdata<Np*2> 

2928   OVERLAP 

2925  ENTER  784  USING  "♦, F" ; Sdat a< * > 

2926  REBIM  Sdata<328> 
2938   IF  Dt-2  THEN  Dt-1 
2935   IF  Dt»3  THEN  Dt»8 
2945   IF  Dt«8  THEN  Cmplx 
2958   FOR  J"l  TO  Np 
2935   Ry(J>«Sdata<J> 
2968   NEXT  J 

2965   GOTO  Xx 

2978  Cmplx:   ! 

2975   Index-8 

2988   FOR  J-l  TO  Np 

2985   Index-Index+1 

2998      Ry<J)-Sdata<Index> 

2995   Index-Index*l 

3888   IxCJ>»Sdata( Index) 

3885   NEXT  J 

3818  Xx:   ! 

3815   Xst»rt»Temoa< 12) 

3828   Xstep-Te»paC13> 

3921   FOR  J-513  TO  528 

3822  Sdat»U)»Ttmpa<  J-512) 

3823  NEXT  J 
3825   SERIAL 
3838  GOTO  Bye 
3835  ! 

3848  Sendout:  ! 

3845  Upper-16*Sdata(3)/2 

3858  FOR  J-l  TO  Upper 

3853  OUTPUT  784; SdataCJ) 

3868  NEXT  J 

3065  ! 

3878  Bye:  ! 

3875  B3420-0 

3088  SUBEND 

3885  ! 

3090  I 

3095  SUB  Ade  owrflo 
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3iee   FOR  J-l  TO  1 

3195  BEEP 

3110  WfilT  588 

3115  NEXT  J 

3128  I  STOP 

3125  SUBEND 

3138 

3135 

3148 

3145 

3158  !  SUBROUTINE  TO  INDICATE  COMMAND  ERROR 

3155  !  CALL:      CALL  C_ERR 

3168  SUB  C_err 

3165  CALL  Clear 

3178  IF  Stat-186  THEN  CALL  Put  1 i ne< 2, 25, "FATAL  COMMAND  ERROR") 

3175  IF  Stat-187  THEN  CALL  Put  11 ne< 3, 25, "FATAL  GENERAL  ERROR") 

3188  IF  Stat-118  THEN  CALL  Put  1 i ne<4, 25, "  FATAL  ERROR!  ") 

3185  SUBEND 

3198 

3195 

3288 

3285  SUB  Kiy  II 

3218   OPTION  BASE  1 

3215   LINK  "KEY_li:F9", 13428 

3228   CALL  Mul  f 1 1e 

3225   SUBEND 

3238  ! 

3235 

3248 

3245 

3258 

3255 

3268 

3265 

3278 

3275 

3288 

3295 

3298 

3295 

3388 

3385 

3318 

3315 

3328 

3325 


SUB  Key  12 

OPTION  BASE  1 

LINK  "KEY_12:F9", 13428 

CALL  Con  group 

SUBEND 


SUB  C1ear_l i ne( 1st art , Num1  ) 

FOR  J«Istart  TO  I st art +Numl - 1 

PRINT  USING  "•,3A,2D,K";CHR*<27)8,"8.a",  J  ,  "r8C"&CHRS  k27)i"K" 

NEXT  J 

SUBEND 


SUB  Get_p<Parm*,L) 

OPTION  BASE  1 

3338  COM  Command*<*), Number  commands, Mode*, Menu, A5423, Uord*<* ), Pref i x* ■* > 
3335  COM  Editf*,Edit  1 i ne, B5428, SHORT  Pdat a< *) , Npr i nt , Sdat a< * ) , Nsaue, St  at 
3348  COM  Fi 1 •*, SHORT~St at •( *) , Ry <*) , Ix<*) , Sz<«) , XI i ne, Tc , Tf , Ti , Np, S 1  ope , PI , 
3345  COM  SHORT  Xst art , Xstep, Rye (•), Ixc <»), Frc <♦), Cp, Intercept ,  Frequence 
3358  COM  SHORT  PI i m, Pxo, Pxm, Pyo, Pym, PI oc , Xo, Xm, Yo, Ym, Pscal e, Xmi n, Xmax, Ymi n, 

3355  COM  SHORT  Cur ,  Po 1 y ,  Lsf , Sf 1 g, Regi on, Pf 1 g, Pstart , Pst op, Dl , D2, D3, D4, D5, D6 

8.D9 

3368 

3365 

3378 

283 

3375  !  COM  SHORT  CPX, XTP<»> , CPC, CTP< • ) 

3388   Number_com»ands«Nui»ber_commands*l 

3385   Pirmf *"  " 

3398   PRINT  "ANY  PARAMETERS  <Y  OR  N)  ?  " 

3395   L»Number  commands 

3488   INPUT  Answers 

3495   IF  Answ»r»»"N"  THEN  Bye 

3418   PRINT  "INPUT  PARAMETER  STRING  IN  QUOTES: 


P2 
Ymax, 

,D7.D 


COM  SHORT  Find  poi nts,  Paper ,  Bl ue, Bl ack , Onn, Of f, Sk i p, Deui ce, Pager , Nopag 
COM  SHORT  Tpscale,Tx»in,Txmax,Tymin,Tymax,Tnpts,Tx<#),Ty<«),Tf lg,X60,E 
COM  SHORT  Dpsc al e, Dxm i n, Dxmax, Dym i n, Dy max, Dnpt s, Df lg, Plots, Cut ,Nocut,T 


very 
l  m  €  I C 
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3415   LINPUT  Parm* 

3428   Parm*»Parm*C2,LEN<Par«*)-l] 

342S  By*:  ! 

3430   SUBEND 

3433   ! 

3440   ! 

3445   SUB  Shifty<N> 

3439   OPTION  BASE  1 

3433  COM  Command* <  « ) , Number_commands , node*, Menu, fl34 20, UordX  *>, Pref 

3460  COM  Editf*,Edit  1 i ne, B5420, SHORT  Pd»t a< *) , Npr 1 nt , Sdat a<*> , Nsav 

3465  COn  Fi le*,SH0RT~State<HO,Ry<»>, Ix< » ) , Sz<* ) , XI i ne, Tc , Tf , T i , Np, S 

3470  COn  SHORT  X*t art , X*tep, Rye <*>, Ixc <•>, Frc <*>, Cp, Intercept , Frequ 

3473  COn  SHORT  PI  i ft, Pxo, Pxm, Pyo, Pyre, PI oc , Xo, Xm, Yo, Ym, Pscal •, Xmi n, Xm 

P»X1  s 

3480  COn  SHORT  Cur , Po1 y, Lsf , Sfl g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3 

8,119 

3483  COn  SHORT  Find  poi nts, Paper , Bl ue, Bl ack , Onn, Of f, Sk i p, Deui c e, Pag 

3490  COn  SHORT  Tpscal e, Txmi n, Txmax , Tymi n, Tymax, Tnpt s , Tx< ♦> , Ty <*) , Tf 

3493  COn  SHORT  Dpscal e, Dxmi n, Dxmax, Dymi n, Dymax, Dnpt s, Df 1 g, PI ot s, Cut 

20] 

!  COn  SHORT  CPX,XTP<»),CPC,CTP<*> 

P-l 

!  PRINT  Number  commands, Edi t_l i ne 

FOR  H»l  TO  N 

FOR  K»Number_eommand»*P  TO  Edi t_l i ne+P  STEP  -1 

Command* <IO  "Command* <K-1 > 

Word*<K)«Uord*(K-l  ) 

Pref ix*< K) -Pref ix*(K-l> 

NEXT  K 

Pmp+i 

NEXT  H 

Edit_l i  ne»Edi t_1 i  ne*N 

SUBEND 


<*<*> 


D4, 

>«, 

.No 


e,Pl,P2 

v 

Ym in, Ymax, 

D5,D6,D7,D 

Nop  age  r 
X68, Every 

cut,Time*C 


3300 
3505 
3510 
3515 
3520 
3525 
3530 
3535 
3540 
3545 
3550 
3533 
3360 
3363 
3370 
3373 
3380 
3585 
3590 
3595 
3600 
3605 
3610 
3615 
3620 
3625 
3630 
3635 
3640 
3645 


SUB  Group_»enu<R_start , R_stop, Po»_r, Pos_s, Del t ,Nlbl ,Engl ishl1 

Count «0 

FOR  R«R_*tart  TO  R_stop 

FOR  K«1~T0  Po*_r 

Count "Count  +  1 

IF  Count >N1bl  THEN  Bye 

J«Po*  *f<K-l>*Delt 

IF  Count<10  THEN  L i ne*"VRL*(Count )  8."   •   "iEngli sh*<Count  ) 

IF  Count  >9  THEN  Li  ne*«VAL*<Count  >«."  ■   "S.Eng  1  l  sh*<  Count  ; 

CALL  Put lint(R, J, Lint*) 

NEXT  K 

NEXT  R 


3650  Bye:    ! 

3655   SUBEND 

3660   ! 

3665 

3670 

3675 

3680 

3685 

3690 

3695 

3700 

3705 

3710 

3715 

3720 

3725 


SUB  Label <X*i ze, Y»i ze, XI abel  .Ylabel  , Si ze, Pen, L*> 

INTEGER  Xo, Yo.Xmax, Ymax, Label x, Label y.Npen 

Npen"Pen 

Xo>0 

Yo-0 

Xmax»lb00e*Xti  ze.-15.75 

Ymax"U400*Ysize'11.2 

Label x-X1abel*1016-.  5* 1016 

Label y-Y1abel»1016-. 25*1016 

Chrsiz"Size>-64«2.5 

IMAGE  3R,SDC,5DC,5DC,3D 

OUTPUT  703  USING  3728; "IP  " , Xo, Yo, Xmax, Ymax 


157 


Main  Program  Listing — continued. 


3739 
3735 
3740 
3745 
3730 
3733 
3760 
3763 
3770 
3773 
3760 
3703 


OUTPUT  705  USING  3720;"IW  " , Xo, Yo, Xmax , Ymax 

OUTPUT  705; "PU" 

OUTPUT  703  USING  3720J "PR  " , Xo, Yo, Labt 1 x, Labe 1 y 

OUTPUT  703  USING  "3A, K, A, K" ; "SI  "  ,  Chrs  i  z*(  5-- 8) ,  "  ,  "  ,  Chrs  i  z 

OUTPUT  703  USING  "3A,D";"SP  ",Npen 

OUTPUT  705; "LB"fcL*tCHR*(3) 

OUTPUT  705; "SP  0" 

SUBEND 


*) 

,P1,P2 
i m  i  n , Ym  ax , 

D5, Do, D7, D 

Nopager 
X60, Every 
c  ut , T  i  me*C 


SUB  Sys(Codt) 

OPTION  BASE  1 
3790  COM  Command*(*) , Numbtr_commands, Mode*, Mtnu, A5420, UordX*) , Prtf i x* 
3793  COM  Editf*,£dit_l int, B5420, SHORT  Pdat a< *) , Npr 1 nt , Sdat ac *) , Nsavt , S 
3800  COM  Fi lt*,SHORT~Statt(»),Ry(*), Ix<» ) , Sz( ♦) , XI i nt , Tc , Tf , Ti , Np,  S  1  op 
3805  COM  SHORT  Xst art , Xst tp, Rye (*) , Ixc <*) , Frc (*) , Cp, Int trcept , Frequenc 
3810  COM  SHORT  PI i m, Pxo, Pxm, Pyo, Pym, PI oc , Xo, Xm, Yo, Ym, Pscal « , Xmi n, Xmax, 
Pax  is 

3815  COM  SHORT  Cur,  Poly,  Lsf , Sf 1 g, Rtgi on, Pf Ig.Pstart , Pst op, Dl , D2, D3, D4, 
8,D9 

3828  COM  SHORT  Fi nd_poi nt s, Paptr , Bl ut, Bl ack , Onn, Of f, Sk i p, Devi c e , Pager , 
3825  COM  SHORT  Tpsc al e, Txmi n, Txinax, Tymi n, Tymax, Tnpt s, Tx(*) , Ty (* ) , Tf 1 g, 
3830  COM  SHORT  Dpseal e, Dxmi n, Dxmax, Dymi n, Dymax, Dnpt s, Df 1 g, PI ot s, Cut , No 
20] 

3835  !  COM  SHORT  CPX, XTP( *) , CPC, CTP( * ) 
3840   SHORT  Xar(1536),Yar(1536) 
3845   IF  (Codt-1)  OR  (Codt«2)  THEN  R  label 
3858   IF  (Codt>»3)  AND  (Code<»8)  THEN  Plots 
3855   IF  (Code«9>  OR  (Codt«10)  THEN  CRLL  Data  filtCCodt) 
3860   IF  (Codt-18)  OR  (Codt"19)  THEN  CALL  Data  file(Code) 
3865   IF  Code»20  THEN  CRLL  Data  filt(Codt) 
3870   IF  Codt»21  THEN  CRLL  Dat a~f i 1 t ( Codt ) 
3873   IF  Codt-11  THEN  CALL  Ti t<Word*( XI i ne  )  > 
3880   IF  (Codt>»12)  AND  <Codt<"17)  THEN  Plots 
3885   IF  (Code-24)  OR  (Codt-40)  THEN  Plots 

3890   IF  (Codt>»22)  AND  <Codt<»23>  THEN  CALL  Dat amc Code , Uord*< X li ne  )  ) 
3895   IF  (Codt>"26)  AND  <Codt<-29)  THEN  CALL  Plot  fix(Code) 
3900   IF  (Code>»32)  AND  (Codt<«37)  THEN  CALL  Smoo~hr ( Codt > 
3905   IF  (Codt«30)  OR  (Codt"31>  THEN  CALL  Spl ot < Code , Word*(X 1 i ne > ) 
3910   IF  (Codt«41)  OR  (Codt-42)  THEN  CALL  Spl ot (Code, Word*' X li ne )) 
3915   IF  Code-38  THEN  CALL  Hour 

3920   IF  Code-39  THEN  CALL  Del  f i 1 ts(Uord*(Xl i ne)  > 
3925   IF  Code-43  THEN  CALL  AnaTys l s ( Code  ,  N, Xar ( * ) ,  Yar < * ) ) 

3930   IF  Code»44  THEN  CRLL  Rtmovt (Code, Dl , Frequency , Every , X60, Cp, Fyc (*>, Ixc C»>, F 
re(O) 

3935   IF  Code»45  THEN  D5-1    !  ENABLE  ANALYSIS  ON  EXPERIMENTAL  DATA 
3940   IF  Code»46  THEN  CALL  Shorty (Cp, Rye (•), Ixc (*), Frc (*) ) 
3943   GOTO  Bye 
3950  R_labtl :  ! 
3953   XI int-Xl int*l 
3960   P-P0S(Comi«and*(X1  int),  ",  ") 
3965   X_size»VRL( Command* (XI  ine)Cl,P-n) 
3970   Y~siz*«VRL( Command* (XI  int)CP+U) 
3973   P-POS(Prtf ix*(X1 int), ",  ") 
3980   Labtl  x-VRL(Prtf i x*(Xl i nt ) C 1 , P-l  2  ) 
3985   Labtl~y-VRL(Prtf ix*(Xl int)CP*13) 
3990   XI ine»Xl ine+1 
3995   P»POS(Prtf ix*(Xl int), ",  ") 
4000   Sizt"VRL(Prtf ix*(Xl int) CI, P-l 3) 
4005   Ptntypt»VRL(Prtf ix*(Xl int)CP+13) 
4010   IF  Codt"l  THEN  L*-Command*(Xl int) 
4015   IF  Codt-2  THEN  L*"Fi1t* 

4020   1  PRINT  X  sizt;Y  sizt;Label  x;Labtl  y; Si ze; Pentype; L* 
4025   CRLL  LabtT(X  sizt.Y  silt, Labtl  X, Labtl  y, Si zt, Ptntypt, L«) 
4030   GOTO  Byt 
4035  Plots:   ! 
4040   XI int"Xl int+1 
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SUB  Dummyh 
SUBEND 


4043   X*«Comm*nd*<XH  ne) 

4050   Y*«Pref  ix*(XHne> 

4055   Tt>Uordt(XlinO 

4060   XI ine«Xl in*+l 

4865   C«Code 

4070      Q-P0S<Pref ix*<Xl ine), ", M> 

4075      Pn»VAL (Pref ix*<Xl ine>Cl,G-U> 

4080      P"VAL<Pref ix*<Xl ine>CQ+13> 

4083      CALL   Rbuild(C,N,Xtr(i),V*r(t)) 

4090   IF  <C>"3)  AND  <C<«5>  THEN  CALL  S«mi 1 og<C, N, Xar<*> , Yar (») , X*, Y*, T#, P, Pn) 

4095   IF  <C>-6>  AND  <C<-8>  THEN  CALL  L i nearc (C, N, Xar<* ) , Yar <» > , X*, Y*, T* , P, Pn) 

4100   IF  <C>-12>  AND  <C<*18>  THEN  CALL  Li nearc < C, N, Xar (* > , Yar < * > , X* , Y*, T*, P, Pn : 

4103   IF  <C«24>  OR  (C-40)  THEN  CALL  L i nttrc <C, N, Xar <*> , Yar<*> , X*, Y*, T* , P, Pn> 

4110   GOTO  By* 

4113  Bye:  ! 

4120   SUBEND 

4123   ! 

4130   ! 

4135   ! 

4140   ! 

4145 

4130 

4153   ! 

4160   ! 

4165   ! 

4170   SUB  flour 

4175   OPTION  BASE  1 

4180  COM  Command* <♦)  , Number_commands , Mode*, Menu, A5420, Uord*<*> , Prefix* (*) 

4185  COM  Editf*,Edi t_1 ine,B5420, SHORT  Pdat a<»> , Npr i nt , Sdat a<*> ,  Niave  ,  St  at 

4190  COM  Fi le*,SHORT-State<*),Ry<*>, Ix<* > , Sz<*> , X 1 1 ne, Tc , Tf , T i , Np,S1op« .PI ,P2 

4195  COM  SHORT  Xst art , Xstep, Rye <•>, Ixe <•>, Frc <*>, Cp, Intercept , Frequency 

4200  COM  SHORT  PI  im,Pxo,Pxm,Pyo,Pym,Ploc,Xo,Xm,  Yo,  Ym, Psc al e , Xmi n, Xmax ,  Yirnn,  Ymax, 

Paxi  s 

4205  COM  SHORT  Cur, Poly, L»f,Sflg, Region, Pflg.Pstart , Pstop, Dl ,D2, 03, D4, D5, D6,  D7,D 

8,09 

4210  COM  SHORT  Fi nd_poi nts, Paper , B1 ue, Bl ack , Onn, Of f, Sk i p, De"i ce, Pkger, Nopager 

4215  COM  SHORT  Tpscal  e,  Txmi  n,  Txmax,  Tymi  n,  Tymax,  Tnpt  i,  T>.  <*:>,  Ty<*> ,  Tf  1  g,  X68,  Every 

4220  COM  SHORT  Dpscal e, Dxmi n, Dxmax, Dymi n, Dymax, Dnpts, Df 1 g, PI ot s, Cut , Nocut , Tj me*[ 

203 

4225     !     COM    SHORT    CPX, XTPCO , CPC, CTP( *  ) 

4230       Cp«Np-l 

FOR    J-2    TO    Cp 

RycCn-RyU) 

Ixe<J)"Ix<J) 

Fre<J>-Xstart*Xstep«<J-l > 

NEXT  J 

SUBEND 


4235 
4240 
4245 
4250 
4255 
4260 
4265 
4270 
4275 
4280 
4285 
4290 
4295 
4300 
4305 
4310 
4315 
4320 


!  SUBROUTINE  TO  STORE  AND  RECALL  DATA 

!  CALL:      CALL  DATA  FILE 

! 


SUB    Data_f i  le<Code> 

OPTION    BASE    1 

4325  COM  Command* <*>, Number_co«*ands, Mode*, Menu, A5420, Word* <*>, Prefix*'  *> 
4330  COM  Editf*,Edit_line,B5420, SHORT  Pdata<*> , Npr i nt , Sdat a<*) , N&aue,  St at 
4335  COM  Fi 1 **, SH0RT~St at e<») , Ry <•> , Ix<#> , Sz(*> , X1 i ne, Tc , Tf , Ti , Np.Slope.Pl , P2 
4340  COM  SHORT  Xst art ,  Xstep, Rye <*>, Ixc <*>, Frc C*>, Cp, Int ere ept , Frequency 
4345  COM  SHORT  PI i m, Pxo, Pxm, Pyo, Pym, PI oc , Xo, Xm, Yo, Ym, Pscal e, Xmi n, Xmax, Ymi n, Ymax  , 
Paxi  s 
4350  COM  SHORT  Cur ,  Po I y ,  Lsf ,  Sf 1 g,  Regi on,  Pf 1 g, Pst art , Pstop,  Dl ,  02,  03,  04  ,  05,  06,  D7,  D 
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8,D9 

4355  COM  SHORT  Find  poi nts,  Paper , B1 ue, B 1 ack , Onn, Of f, Sk i p, Devi ce, Pager, Ncpager 

4368  COM  SHORT  Tpscal e,  Txmi n, Txmax, Tymi n, Tymax, Tnpt s, Tx< * > , Ty < *> , Tf 1 g, X60, Every 

4365  COM  SHORT  Dpsc al e, Dxmi n, Dxnax, Dymi n, Dymax, Dnpt s, Df 1 g, PI  or s, Cut , Nocut , Ti me*[ 

20] 

4370  !  COM  SHORT  CPX, XTP<»> , CPC, CTP<*) 

4375  ON  ERROR  GOTO  Trouble 

4380  IF  <Code-9>  OR  <Code-18>  THEN  Save_data 

4385  IF  (Code-18>  OR  <Code«19)  THEN  Reca11_data 

4390  IF  Code«20  THEN  Zero  data 

4395  IF  Code-21  THEN  Ren  f1 

4400  PRINT  "BAD  CODE  IN  DATA_FILE:  " ; Code 

4405  STOP 

4410  Trouble:   ! 

4415  IF  ERRN-54  THEN  Dup  file 

4420  IF  ERRN-56  THEN  No  file 

4425  PRINT  "HUH  -  DATA_FILE  ERROR  #  :  " , ERRN 

4430  STOP 

4435  No  file:   ! 

4440  BEEP 

4445  PRINT  "FILE  "JName*;"  DOES  NOT  EXIST  --  HALT!" 

4450  STOP 

4455  Dup_f i le:   ! 

4460  IF  Code»18  THEN  PURGE  Names 

4465  GOTO  4645 

4470  2ero_data:   ! 

4475  CALL  Zero_data_sets 

4480  GOTO  Bye 

4485  Recall    data:       !     10-SHORT      19-TIED 

4490  Name*»WorcJ*(.Xl  ini) 

4495  IF  P0S<NameS, ": ")«0  THEN  Na«ne*«Name*8." :  F8" 

4500  ASSIGN  t5  TO  Name* 

4505  IF  Code»10  THEN  READ  »5; Np, Xst art , Xst ep 

4510  IF  Code-19  THEN  4565 

4515  IF  Np<>0  THEN  4555 

4528  Xstart-0 

4525  Xstep-0 

4530  MAT  Ry-ZER 

4535  MAT  Ix»ZER 

4540  MAT    Sdata-ZER 

4545  MAT    Pdata-ZER 

4550  GOTO  4600 

4555  IF  Code»10  THEN  MAT  READ  #5; Ry , I x, Sdat a   !  ,Pdata 

4560  IF  Code»10  THEN  4600 

4565  IF  Code-19  THEN  READ  »5;Cp 

4570  IF  Cp<>0  THEN  4595 

4575  MAT  Ryc-ZER 

4580  MAT  Ixe-ZER 

4585  MAT  Fre-ZER 

4590  COTO  4600 

4595  IF  Code-19  THEN  MAT  READ  #5; Rye , Ixc , Frc 

4600  ASSIGN  •  TO  #5 

4605  Dl-0 

4610  Codel-0 

4615  CALL  Re»ove<Codel,Dl, Frequency, Every , X60, Cp, Rye <♦>, Ixc (*) , Frc <*> ' 

4620  GOTO  Bye 

4625  Save  data:   I  9-SHORT   18-TIED 

4630  Nane«-Uord*<Xl  ine> 

4635   IF  POSCName*, ": " >«0  THEN  Na»e*-Name*i" : F8" 

4640   IF  Code-9  THEN  CREATE  Names, 26 

4645   IF  Code- 18  THEN  CREATE  Name* ,75 

4650  ASSIGN  #5  TO  Name* 

4655   IF  Code-9  THEN  PRINT  #5; Np, Xst art , Xst ep 

4660   IF  Np«0  THEN  4670 

4665   IF  Code-9  THEN  MAT  PRINT  »5; Ry , Ix , Sdat a   !  ,Pdata 

4670   IF  Code-18  THEN  PRINT  «5;Cp 
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4675   IF  Cp-e  THEN  4683 

4688  IF  Code»18  THEN  MAT  PRINT  t5; Rye , Ixc , Frc 

4685  ASSIGN  *  TO  e-5 

4698  GOTO  By* 

4693  Ren_f 1:   ! 

4788  Na»e«-Uord*CXl  ine> 

4785  CALL  Ren  f i  1  eCName* > 

4718  GOTO  Bye~ 

4713  Bye:   ! 

4728  SUBEND 

4725  ! 

4739  ! 

4733  ! 

4748  SUB  Key_7 

4743  OPTION  BASE  1 

4758  LINK  "KEY  7:F9", 13428 

4755  CALL  Df  i It 

4768  SUBEND 

4765  ! 

4778  ! 

4775  ! 

4780  SUB  TieCF*) 

4785  OPTION  BASE  1 

4798  COM  Command* C*> , Number_c omroands , Mode*, Menu, A3420,Word*C*>,Prefix*<  #) 

4795  COM  Edi tf*,Edit_1 ine,B5420, SHORT  Pdat aC* > , Npr i nt , Sdat aC*> , Nsave, St  at 

4888  COM  Fi  le*,SHORT~StateC*>,RyC*:>,  IxC*>  ,  Sz  t  *  > ,  XI  i  ne,  Tc  ,  Tf ,  T  i  ,Np,31op«  , P1.P2 

4883  COM  SHORT  Xst art , Xstep, Rye <*>, Ixc <*>, Frc (*), Cp, Int ere ept , Frequency 

4810  COM  SHORT  PI i m, Pxo, Pxm, Pyo, Pym, PI oc , Xo, Xi», Yo, Ym, Psc al e, Xmi n, Xmax , Yi»  i n,  Ymax, 

Pax  is 

4815  COM  SHORT  Cur , Pol y , Lsf , Sf 1 g, Regi on, Pf I g, Pst art , Pst op, Dl , D2, D3, D4, D5 , D6, D7, D 

8,D9 

4820  COM  SHORT  Fi nd_poi nt s, Paper , B1 ue , B 1 ack , Onn, Of f , Sk i p, Levi ce, Pager , Nopager 

4825  COM  SHORT  Tpscal e, Txmi n, Txmax, Tym i n, Tymax, Tnpt s , Tx CO, TyC *>, Tf 1 g,  ;<60, Every 

4830  COM  SHORT  Dpscal e, Dxmi n, Dxmax, Dym i n, Dymax, Dnpt *, Df 1 g, PI ot s, Cut , Hocut , T i m**C 

20] 

4833  !  COM  SHORT  CPX, XTP< *) , CPC, CTP( ♦ > 

4840  DIM  Bp<7> 

4843  DATA  0.03,  0.1,  3,  25,  236,  3200,  23600 

4850  MAT  READ  Bp  !  FREQUENCY  BREAKPOINTS 

4853  DIM  Data  f i le*C6> 

4860  DATA  "1"7  "2",  "3",  "4",  "3",  "6" 

4865  MAT  READ  Data  file*   !  DATA  FILES 

4878  Cp-0 

4875  Suf*»"X" 

4888  IF  POSCF*, "X"><>0  THEN  Suf*""X" 

4885  IF  POSCF*, "S"><>0  THEN  Suf*«"S" 

4890  IF  POSCF*,  "C"X>0  THEN  Suf*-"C" 

4895  FOR  J«l  TO  6 

4900  !  IF  POSCF*, VAL*CJ>>«0  THEN  Next  file 

4905  Data  f i 1 e*C J>»Data  f il e*C J)tSuf tl" : F8" 

4910  ASSIGN  #5  TO  Data  file«CJ> 

4915  READ  »5;Np,Xstart7x*tep 

4928  IF    Np»e    THEN    4938 

4925  MAT    READ    i5;Ry,Ix    !     ,Sdata,Pdata 

4938  ASSIGN  •  TO  t-5 

4935  S-l 

4948  IF  Np>256  THEN  S«2 

4945  FOR  K-l  TO  256  STEP  S 

4958  Freq»Xstart+Xstep*CK-l> 

4955  IF  CFreq<BpCJ>)  OR  CFreq>BpCJ+l > >  THEN  Skip 

4960  IF  Cp-8  THEN  4970 

4965  IF  CK>1>  AND  CFreq«Frc CCp> >  THEN  Skip 

4970  Cp«Cp*l 

4975  Ryc<Cp>-Ry<K> 

4930  IxeCCp>-IxCK> 

4985  FreCCp)-Freq 
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4999  Skip:    ! 

4993   NEXT  K 

5080  Next  flit:   ! 

3005   NEXT  J 

5010  Bye:   ! 

5015   SUBEND 

5020   ! 

5025      SUB    LinearcCCode.N, SHORT    X_array < » > , Y    array <*>, X*, Y*, T*, PI , Pn> 

5030   OPTION  BASE  1 

5035  COM  CommandS<*> ,  Number_eommands,  Mod**,  Menu,  A5420, Word*<»>  ,  Pr ef  i  xS<.*"> 

5040  COM  Editf*,Edit  1  i ne, B5420, SHORT  Pdata<*> , Npr i nt , Sdat a<*> , Nsave, St  at 

5045  COM  Fi le*,SHORT-State<*>,Ry<*>, Ix<*> , Sz< *> , XI i ne, Tc, Tf , Ti , Np, S 1  ope , PI , P2 

5050  COM  SHORT  Xst art , Xst ep, Rye (*> , Ixc (*> , Frc <*) , Cp, Int ercept , Frequenc y 

5055  COM  SHORT  PI i m, Pxo, Pxm, Pyo, Pym, PI oc , Xo, Xm, Yo, Ym, Pscal e, Xmi n, Xmax , Yra i n, Yntax, 

Paxi  s 

5060  COM  SHORT  Cur , Po 1 y, Lsf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4, D3, D6, D7, D 

8,99 

5065  COM  SHORT  Fi nd_po i nts, Paper , B1 ue, B1 ack , Onn, Of f , Sk i p, Dew i ce, Pager , Nopager 

5070  COM  SHORT  Tpscal e, Txmi n, Txmax, Tymi n, Tymax, Tnpts, Tx<») , Ty<»> , Tfl g, X60, Every 

5075  COM  SHORT  Upscale, Dxmi n, Dxmax, Dymi n.Dymax, Dnpts,Df lg, Plots, Cut ,  Nocut , Ti  i»e*C 

20] 

5080  !  COM  SHORT  CPX, XTP< * ) , CPC, CTP< ♦> 

5085   Sflg-0 

5090   D-l.l  STARTING  POINT  IN  DATA 

5095   !  TRACE  VARIABLES  Pf 1 g, Sfl g, N, Upper , D 

5100   Upper«N 

5105    IF  (Pflg-1)  AND  (Regional)  THEN  D«Pstart 

3119    IF  Lsf«2  THEN  D-l 

3115   X$»TRIM*(X$) 

5120   Yf"TRIM*(Y») 

5125   T»«TRIM*<TS> 

5130   !  ARBITRARILY  SET  YMIN  8.  YMAX 

5135   IF  Paxis»8  THEN  GCLEAR 

5140   IF  Paxis>»2  THEN  Pscale»0 

5145   IF  Pscale-0  THEN  5255   !  FIXED  PLOT  LIMITS 

5130   Axmin»BIT<Pscale,0> 

5155   Axmax-BITCPscale, 1> 

5160   Aymin-BIT(P»cale,2) 

5165   Aymax-BIT(Pscal*,3) 

5170   IF  Aymm  THEN  Ymin«Y  arrayCD) 

5175   IF  Aymax  THEN  Ymax«Y~array C D > 

5180   IF  Axmin  THEN  Xmi n«X~array < D> 

5185   IF  Axmax  THEN  Xmax»X~array <D > 

5190   !  NOW  FIND  MAX  i.    MIN~VALUES 

5193   Upp*r«N 

5280   IF  <Pflg«l)  AND  <Region»l>  THEN  Upper»Pstop 

5285   IF  Lsf-2  THEN  Upper»128 

5210   FOR  J-D  TO  Upper 

5215   P-X  arrayCJ) 

5220   Q-Y~array<J> 

5225   IF  Axmin  THEN  Xmi n-MIN(P, Xmi n> 

5230   IF  Axmax  THEN  Xmax»MAX< P, Xmax > 

5235   IF  Aymin  THEN  Ymi n-MIN<Q, Ymi n> 

5240   IF  Aymax  THEN  Ymax»MAX<Q, Ymax > 

5245   NEXT  J 

5250   ! 

5255   IF  <Paxis-2>  OR  <Paxis«3>  THEN  5285 

5260   IF  PI -1  THEN  PLOTTER  IS  "GRAPHICS" 

5265   IF  Pl-2  THEN  PLOTTER  IS  "GRAPHICS" 

5270   IF  Pl-3  THEN  PLOTTER  IS  "9872A" 

5275   I 

5280   !  SET  PLOT  LIMITS 

5285   T-1.5 

5290   LINE  TYPE  1 

5295   CALL  Plfix 

5300   PEN  Pn 

5305   FRAME 
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5310 

3313 

3320 

3323 

3338 

3333 

3340 

3345 

5330 

3355 

5360 

5363 

3370 

3375 

3380 

3383 

5390 

5393 

5400 

3405 

5410 

5415 

5420 

5423 

5430 

5435 

5440 

5445 

3430 

5455 

5460 

5463 

5470 

5473 

3480 

3483 

3490 

5495 

5500 

5305 

5510 

5515 

5520 

5525 

5530 

5535 

5540 

5545 

3550 

5335 

5560 

5565 

5570 

5375 

5580 

>) 

5583 

5598 

5595 

5600 

5605 

5610 

5615 

5620 

5625 

5630 


GRAPHICS 

I  PLOT  DATA 

FOR  J-D  TO  Upp«r 

X-X_*rray(J> 

Y»Y  »rr»y<J> 

IF  J-D  THEN  PLOT  X,Y,-2 

IF  Code<>16  THEN  LINE  TYPE  2 

PLOT  X.Y.-l 

NEXT  J 

LINE  TYPE  1 

IF  (Paxis-2) 

SETGU 


OR  <P*xis-3>  THEN  3580 


!  PUT  LABELS  ON  Y-AXIS 

Ytt  ep-  <  Ym*x-  Yin  i  n  >  ^4 

yd«1«<Y»-Yo>'4 

CSIZE  3. 1 

LORG  2 

FOR  J-l  TO  3 

IF  J-l  THEN  MOVE  Xo.Yo 

Yf*c-Yd«l»<J-l>*Yo 

PLOT  Xo,Yf»c,-2 

PLOT  Xo-T,Yf»c,-l 

PLOT  Xo-20, Yfac,-2 

LABEL  USING  "SI. DDE" ; Yoi n  +  Yst «p« < J-  1  > 

NEXT  J 

!  PUT  LABELS  ON  X  AXIS 

LORG  3 

Xstp»<Xm*x-Xmin>/3 

Xd»l«<X»-Xo>'3 

FOR  J«t  TO  4 

IF  J-l  THEN  MOVE  Xo.Yo 

Xfac-Xdel»(J-l)*Xo 

PLOT  Xf*c,Yo,-2 

PLOT  Xf*c,Yo-T,-l 

PLOT  Xf»c,Yo-6,-2 

LABEL  USING  "SD. DDE" ; Xmi n+Xst p*< J-l > 

NEXT  J 

I 

!  PUT  LABELS  ON  PLOT 

Xmtd-Xo+<Xm-Xo)/2 

Ymid-Yo-KYm-Yo)^ 

!  PRINT  »8;Xi»id 

CSIZE  4.2 

LD.'R  0 

LOSG  3 

PLOT  Xmid, Yo-12,-2 

LABEL  USING  "K";X* 

PLOT  X«td, Y»*3,-2 

LABEL  USING  "K";T$ 

DEC 

LSIR  90 

PLOT  Xo-25, Ymid,-2 

LABEL  USING  "K";Y$ 

IF  <Region-l>  AND  (Pflg-0)  THEN  CALL  R«gi on_i nt r«st <N, X_array  • 

IF  D5-1  THEN  CALL  Anal y* i s(Cod«, N, X  array(»>,Y  array(*>> 

IF  Pflg-2  THEN  5715 

!  IF  Sflg-1  THEN  CALL  Unsuap  *cal*<N,X  ai-ray<*>,Y  »rr*y(»)) 

IF  Cur-l  THEN  SCALE  Xai n, Xmax , Ymi n, Ymax 

CALL  Points<N,Cur,Pf lg, Pst*rt , Pstop, X_array<*> , Y_*rr»y<») ,Frc<< 

Maxd»g-15  ~ 

D«sdeg-15 

IF  Po1y-l  THEN  CALL  Fi t <Maxd»g, D«sdeg, N, X_array <»> , Y  »rr»y(*)) 

IF  Lsf<>0  THEN  CALL  L*qf i t (Code, N, X_array<* >, Y  »rr»v"*)) 

IF  <Sf1g»2>  AND  <Region«l>  THEN  5650 
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5635   IF  Sf1g-2  THEN  5650 

5640   IF  Sf1g<0  THEN  5650 

5645   IF  Sflg-1  THEN  GOTO  5090 

5650   IF  Pap*r»B1ue  THEN  5670 

5655  PRINTER  IS  0 

5660   IF  <Paxis-0>  OR  <Paxis«3>  THEN  PRINT  PRGE 

5665  PRINTER  IS  16 

5670   IF  CP*xis-0>  AND  <Pl-2>  THEN  DUMP  GRAPHICS 

5675   IF  (Paxis-3>  AND  <Pl-2>  THEN  DUMP  GRAPHICS 

5680   IF  CPaxis-0)  OR  <Paxis-3>  THEN  GCLEAR 

5685   IF  <Paxis»0>  OR  <P«x1»-3>  THEN  EXIT  GRAPHICS 

5690  PEN  0 

5695   Cur-0 

5700   Poly-0 

5705   L*f«0 

5710   D5-0 

5715   IF  Pflg<>2  THEN  5725 

5720   Pflg-1 

5725   SUBEND 

5730   ! 

5735   ! 

5740   ! 

5745   ! 

5750   SUB  Key  8 

5755   OPTION  BASE  1 

5760   LINK  "KEY_8:F9", 13420 

5765   CALL  DmanTp 

5770   SUBEND 

5775   ! 

5788   ! 

5785   ! 

5790   ! 

5795   SUB  Dat*tn<Cod*,S*) 

5800   OPTION  BASE  1 

5805  COM  Command* <*>,  Number  commands , node*, nenu, A5420, Word* t *>, Pref l x*< * > 

5810  COM  Edi  tf*,Edi t_1 ine,B5420,  SHORT  Pdat  a<»>  ,  Npr  i  nt  ,  Sdat  at  *  > ,  N<  jut ,  St  it- 

5813  COn  File*, SHORT  St  at  e  C  *  > ,  Ry  <  *  >  ,  Ix<  ♦  > ,  Sz<  *  >  ,  XH  ne  ,  Tc  ,  Tf ,  T  i  ,  Np,  S  1  ope  ,  PI ,  P2 

3820  COn  SHORT  Xst art , Xst ep, Rye < *> , Ixc < » ) , Frc < *) , Cp, Int ercept , Frequenc u 

5825  COn  SHORT  PI i m, Pxo, Pxm, Pyo, Pym, P 1 oc , Xo, Xm, Yo, Y«, Psc al e , Xmi n, Xmax , Ymi n, Ymax, 

Paxi  s 

3830  COn  SHORT  Cur , Pol y , Lsf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , B2, D3 , D4, D5 , D6 , D7, D 

8,1)9 

3835  COn  SHORT  Find  poi nt s , Paper , Bl ue, Bl ack , Onn, Of f, Sk i p, Deu i c e  .  Pager ,  Nopager 

5840  COn  SHORT  Tpscale,Txmin,Txmax,Tymin,Tymax,Tnpts,Tx<*>,Ty<*.>,Tf  1 g, X60, Every 

5843  COn  SHORT  Dpscal e, Dxmi n, Dxmax, Dymi n, Dymax, Dnpt s, Df 1 g, PI ot s, Cut , Nocut , Ti me*C 

20: 

5830  !  COn  SHORT  CPX, XTP<*> , CPC, CTP(*) 

5855   IF  Code-22  THEN  Swap 

5860   IF  Code-23  THEN  Scales 

3865   PRINT  "BAD  CODE  " J  Code 

3870   STOP 

3875  Swap:   ! 

5880   FOR  J»l  TO  Np 

5885   T"Ry<J> 

5890   Ry<J>-Ix<J> 

5895   Ix<J)"T 

5980   NEXT  J 

5903   FOR  J-l  TO  Cp 

5910   T«RycCJ> 

5915   Ryc<J>"IxcCJ> 

5920   Ixe<J>-T 

3923   NEXT  J 

5930   GOTO  Bye 

5935  Scales:   ! 

5936  Rflg-lflg»0 

5937  IF  POSCS*,"R">  THEN  Rflg-1 
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5938  IF  POS<S*,MI">-THEN  Iflg»l 

3939  IF  <Rflg-0>  AND  <Iflg-0>  THEN  Rflg-Iflg-1 

5940  P-POSCS*. ", "> 

5945  A*-S*Cl,P-n 

5950  F*c-VAL<S*CP  +  n> 

5955  IF  A*-"»"  THEN  Mult* 

5960  IF  A*-"'"  THEN  Divs 

3965  PRINT  "BAD  A*  ";A« 

5970  STOP 

3973  Mults:   ! 

5980   IF  Rflg  THEN  HAT  Ry-Ry»<Fac> 

5963   IF  Iflg  THEN  MRT  Ix-Ix*<Fac> 

5990   IF  Rflg  THEN  MAT  Ryc-Ryc*(Fac > 

3995   IF  Iflg  THEN  MAT  Ixc-Ixe»<Fac ) 

6000  GOTO  By« 

6003  Diu>:   ! 

6010   IF  Rflg  THEN  MAT  Ry-RyCFae) 

6013   IF  Iflg  THEN  MAT  Ix-Ix^CFac) 

6020   IF  Rflg  THEN  MAT  Ryc-Ryc '(Fac > 

6023   IF  Iflg  THEN  MAT  Ixc-IxC<Fac  ) 

6030   GOTO  By* 

6033  Bye:   ! 

6040   SUBEND 

6045   ! 

6050   ' 

6055   ! 

6060   !  ,  xs 

6065   SUB  Abui ld<C,N, SHORT  X_arr ay < * > , Y_arr ay < ♦> > 

6070   OPTION  BASE  1  .  _   ,   ,  .  .  , 

6073  COM  Command* <*>,Number_commands, Mode*, !1enu,A5420, Word* <*>  ,  Pref  1  x*<.*  , 

6080  COM  Editf*,Edit  line, B5420, SHORT  Pd»t*<*> .Nprint ,Sd*t»<*> ,N«»ve,St*t 

6085  COM  Filt*,SH0RT~St*ttC»),Ry<»>,Ix<»),Sz<*),X11fit,Te,Tf,T1,Np,Slop#,Pl,P2 

6090  COM  SHORT  Xstart,Xstep,Ryc<*>,I*cC»>,Frc<»>,Cp,  Intercept,  Fr#qu«r»e-J 

6095  COM  SHORT  PI  1  m, Pxo, Pxm, Pyo, Pym, F 1 oc , Xo, Xm, Yo, Ym, Pscal e, Xm I n, Xm*; c, T m i n, Y».x , 

6*00*COM  SHORT  Cur,Poly,Lsf,Sflg,Region,Pflg,P*tart,Pstop,Dl,D2,D3,D4,D5.E6,D7,D 

8  09 

sl05  COM  SHORT  Find  po, nt», Paper , Bl ue, Bl ack , Onn, Of f, Sk , p, De.i ce. Piger , Nopager 

6110  COM  SHORT  TpscIl*,Txmin,Txmax,Tym<n,Tymax,Tnpts,Tx<*>,Ty<*,,Tflg,X*e,E'  ery 
6115  COM  SHORT  Dp»cal.,Dxm,n,Dxmax,Dym,n,Dy»ax,Dnpts,Dfl.3, Plots, Cut, Nocut,T,m.*C 

20: 

6120  !  COM  SHORT  CPX, XTP<»> , CPC, CTP< * > 

6125  C  3:   IF  COS  THEN  C_4   !  SEMILOG  ARRAY  PLOTS 

6130  C3e:   FOR  J-l  TO  Np  " 

6135  X  array<J>-Ix<J> 

6140  Y~array<J>-Ry<J> 

6145  NEXT  J 

6150  N-Np 

6155  GOTO  Bye 

6165  C  4:   IF  C<>4  THEN  C_5   !  SEMILOG  Y  vs  XSTfiRT*XSTEP 

6170  C4«:   FOR  J-l  TO  Np 

6175   X  array<J>-X*tart*Xstep»(J-l> 

6160   Y~*rray< J)-Ry<J> 

6185   NEXT  J 

6190   N-Np 

6195   GOTO  Bye 

6205  C    5:       IF    COS    THEN    C    6       !     SEMILOG    Y    v*    X»<XSTART*XSTEP> 

6210  C_5e:   FOR  J-l  TO  Np~ 

6215   X  *rrayCJ>»Ix<J>»<Xstart*Xstep*<J-l>> 

6220   Y~array<J>»Ry<J> 

6225   NfxT  J 

6230   N-Np 

6233   GOTO  Bye 

6240   i 

6245  C  6:   IF  C<>6  THEN  C_7   !  LINEAR  ARRAY  PLOT 
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6256 
6235 
£260 
6265 
6270 
6275 
6266 
6285 
6290 
629S 
6366 
6365 
6310 
6315 
6320 
6325 
6336 
6335 
6340 
6345 
6356 
6355 
6360 
6365 
6370 
6375 
6380 
6385 
6390 
6395 
6400 
6405 
6410 
6415 
6420 
6425 
6430 
6435 
6440 
6445 
6450 
6455 
6460 
6465 
6470 
6475 
6480 
6485 
6496 
6495 
6586 
6565 
6518 
6515 
6326 
6525 
6536 
6535 
6348 
6545 
6550 
6355 
6560 
6565 
6570 
6575 


GOTO  C3* 


C  7:   IF  C<>7  THEN  C  8   !  LINEAR  Y  us  XSTART*XSTEP 
GOTO  C4» 


C  8:   IF  C<>8  THEN  C  12  !  LINEAR  Y  vt  X*<XSTART*XSTEP ) 
GOTO  C5« 


C  12: 
C~12e: 
X  wr 
Y~*rr 
NEXT 
N-Cp 
GOTO 
I 

C  13: 

FOR  J 

Y  »rp 
X~*rr 
NEXT 
N-Cp 
GOTO 

; 

C  14: 

FOR  J 

Y  *rr 
X~*rr 

NEXT 
N-Cp 
GOTO 


IF  C<>12  THEN  C  13  !  LINEAR  III  us  REAL 
FOR  J-l  TO  Cp 
»y<J)-Ryc<J> 
»y<J>  — Ixc<J> 

J 

By. 

IF  C<>13  THEN  C  14  !  LINEAR  REAL  us  IM*HZ 
-1  TO  Cp 
*y<J>-Ryc<J> 
»y(J>  —  Ixc<J)»Fre<J> 

J 


By* 

IF    COM    THEN    C    15     !     LINEAR    REAL    us    IM/-H2 
-1    TO    Cp 
*y< J)-Rye< J) 
»y<J)»-Ixc(J>'Frc<J> 

J 


By* 


COHERENCE  PLOT 


C  13:   IF  C013  THEN  C 
cTs*:   FOR  J-l  TO  Cp 

Y  »rr»y<J>"Ryc< J) 
X~»rr»y <J)-Frc< J) 
NEXT  J 

N-Cp 

GOTO  By* 

j 
C  16:   IF  C<>16  THEN  C  17  !  S'N 
Cl6*:   FOR  J«l  TO  Cp 

T-Ryc<J) 

IF  <T»0>  AND  <J>1>  THEN  T-Ryc<J-l) 

IF  <T»0>  AND  <J-1>  THEN  T-Ryc<J*l> 

IF  T-0  THEN'T-lE-16 

Y  *rr*yCn«20»LGT<ABS<T>) 
X~»rr»y<J)-LGT<Fre<J>> 
NEXT  J 

N-Cp 
GOTO  By* 


C_17 
DEG 

FOR 
!  Y 


IF  C<>17  THEN  C  24  I  PHASE 


J-l  TO  Cp 

ARRAY<J)-ATN<IXC<J)^RYC<J>> 
AngT-ATN(Ixc<J>'Ryc<J>> 

IF  (Ixc<J>>-0>  AND  <Ryc>»0>  THEN  Y_*rr»y < J)»Angl 
IF  CIxc<J>>-0>  AND  <Ryc<J><»0>  THEN  Y_*rr»y < J > -90+< 90+Ang 1) 
IF  <Ixc<J><0)  AND  <Ryc<J><-0>  THEN  Y  Irray CJ)«-1 88+Angl 
IF  <Ixc<J><-0>  AND  <Ryc<J>>«6>  THEN  Y_arr»y C J)-Angl 
X  »rr»y<J>-LGT<Frc<J>> 
NEXT  J 
N-Cp 
GOTO  By* 
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C_24:   IF  C<>24  THEN  C48  !  LOG  MflG  us  LOG  HZ 
FOR  J-l  TO  Cp 
X  array<J>-LGT<Fre<J>> 

Y~array< J >«LGT<SQR<Ryc <J)~2+Ixc <J >~2> ) 
NEXT  J 
N-Cp 
GOTO  By* 


6388 

6585 

6598 

6595 

6688 

6683 

6618 

6613   ' 

6628  C48:   IF  C<>48  THEN  By* 

6625   Stp-2«. l/<Np-l> 

6638   FOR  J-l  TO  Np 

6635   Y  array<J>-Ry<J> 

6648   X~»rr*y<J>--. l+Stp*<J-l> 

6645   NEXT  J 

6658   N-Np 

6655   GOTO  By* 

6668  By*:   ! 

6663   SUBEND 

6678 

6673 

6688 

6685 

6698 

6695   SUB  Plfix 

6788   OPTION  BASE  1 

6785  COM  Command* <*>,Numb*r_commands, Mode*, Me nu,H54 28, Word* <*),Prefi  x*  <*> 

6718  COM  Editf*,Edit  1  i  n*,  B5428,  SHORT  Pdat  a<  *> ,  Npnnt ,  Sdata<*> ,  Nsave.,  St  at 

6715  COM  Fi l**,SHORT_State<*>,Ry<*>, Ix< * ) , Sz( * > , XI i n* , Tc , Tf , T i , Np, S1 ope , P 1 , P2 

6728  COM  SHORT  Xst  art ,  Xst  *p,  Rye  <.*  > ,  Ixc  (  *  )  ,  Frc  <♦  > ,  Cp,  Int  ere  ept  ,  Fre  guenc  y 

6725  COM  SHORT  Pli i, Pxo, Pxm, Pyo, Pym, PI oc , Xo, Xm, Yo, Ym, Pscal « , Xnn  n, Xi»ix , Vmi n,  Ymax, 

Paxi  s 

6738  COM  SHORT  Cur , Po1 y , Lsf , Sf 1 g, R*gi on , Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4 , D5, D6, D7, D 

8,D9 

6735  COM  SHORT  Find  poi nts, Pap«r, B1 u* , Bl ack , Onn, Of f, Sk i p, Devi ce , Pager, Nooagsr 

6748  COM  SHORT  Tpscal *, Txmi n, Txmax, Tymi n, Tymax, Tnpt s, Tx<*> , Ty <* ) , Tf 1 g, X68, E"*r" 

6743  COM  SHORT  Dpseal  *,  Dxmi n, Dxmax, Dymi n, Dymax , Dnpt s , Df 1 g, P 1 ot s, C ut , Nocut , T i me*[ 

28] 

!     COM    SHORT    CPX,XTP<*),CPC,CTP<*> 
IF    PI  inOe    THEN    Pf2 
Pxo-8 


6758 
6755 
6768 
6765 
6778 
6775 


Pxm-184 

Pyo«8 

Pym-149 


6788  Pf2:   IF  PlocOe  THEN  Pf3 

6785   Xo«48 

6798   Xm-189 

6795   Yo-38 

6888   Y»-80 

6885  Pf3:   LIMIT  Pxo, Pxm, Pyo, Pym 

6818   LOCATE  Xo, Xm, Yo , Ym 

CLIP  Xo,Xm,Yo,Ym 

SCRLE  Xmi n, Xnax, Ymi n, Ymax 


6815 
6828 
6825 
6838 
6835 
6848 
6845 
6858 
6855 
686o 
6865 
6878 
6873 
6888 
6885 
6898 
6895 


SUBEND 


SUB  K*y_14 

OPTION  BASE  1 

LINK  "KEY_14:F9", 13428 

CALL  Plot  group 

SUBEND 
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6900   SUB  Plot  fixCCode) 

6905   OPTION  BASE  1 

6910  COM  Command* <*> ,  Nu«ber_commands, Mode *, Menu,  A542 0, Uord*< ♦>,  Pref i x*<*> 

6915  COM  Editff.Edit  1 i ne, B5420, SHORT  Pdat a( * > , Npr i nt ,  Sdat a<»> ,  Nsave  ,  St  at 

6920  COM  Fi 1 e*, SH0RT~St at t ( »> , Ry <* > , Ix<*> , Sz<*> , XI ine.Tc, Tf ,Ti , Np, SI ope.Pl ,P2 

6925  COM  SHORT  Xstart ,  X»t»p,  Rye <•> , Ixe <•>, Fre <»>, Cp, Intercept , Frequency 

6930  COM  SHORT  PI i m, Pxo, Pxm, Pyo, Pym, P 1 oc , Xo, Xm, Yo, Ym, Psc al e, Xmi n, Xmax, Ymi n, Ymax, 

Paxi  s 

6935  COM  SHORT  Cur , Pol y , Lsf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4, D5, D6, D7, D 

6,09 

6940  COM  SHORT  Fi nd_poi nts , Paper , Bl ue, Bl ac k , Onn, Of f, Sk i p, Devi ce , Pager , Nopager 

6945  COM  SHORT  Tpscal e,  Txmi n, Txmax, Tymi n, Tymax, Tnpt *, Tx<*> , Ty < »> , Tf 1 g, X60, Every 

6950  COM  SHORT  Dpscal  e  ,  Dxmi n,  Dxmax,  Dymi  n,  Dymax,  Dnpt s,  Df  1  g,  PI  ot s  ,  Cut  ,  Hoc ut ,  T i me *C 

20] 

6955  !  COM  SHORT  CPX, XTP<* > , CPC, CTP< » ) 

6960   XI ine"Xl ine+1 

6965   Pairl*»Command*cXl  ine) 

6970   Pair2»-Pref ix*<Xl  ine) 

6975   IF  Code«28  THEN  C28 

6980   P»POSCPairl*, ", "> 

6985      Tl-VAL<Pairl»Cl,P-U> 

6990      T2»VP.L<Pairl*CP*n> 

6995   P«P0S<Pair2f , ", ") 

7900   T3»VAL<Pair2*Cl,P-l]> 

7005   T4«VflL<Pair2*CP*13> 

7019  IF  <T1"T2>  AND  <T2«T3>  AND  <T3»T4)  AND  <T4»0>  THEN  Unset 
7915   IF  Code<>26  THEN  C27 

7020  Plim«l 
7025  Pxo»Tl 
7030  Pxm-T2 
7035  Pyo-T3 
7040   Pym"T4 

7045  C27:   IF  Code027  THEN  C28 

7050   Ploc-l 

7055   Xo«Tl 

7060   Xm>T2 

7065   Yo-T3 

7979   Ym»T4 

7875  C28:   IF  Code<>28  THEN  C29 

7088   Pscale«9 

7885   P-POS(Pairl«, ", "3 

7090   A*»Pairl*Cl,P-13 

7095   IF  A*<>"*"  THEN  Xmi n»VAL< A* > 

7199  IF  As«"*"  THEN  Pscal e»Psc al e+1 
7105   A*-Pairl»CP*U 

7119  IF  A*<>"»"  THEN  X»ax-VAL<A*> 
7115   IF  A*""*"  THEN  P$cale-Pscale+2 

7120  P«P0S<Pair2», ","> 
7125   A»-Pair2*tl,P-l] 

7130   IF  R9<>"*»    THEN  Ymin«VAL<A*> 
7135   IF  A«-"»"  THEN  Pscal e«Psc al e+4 
7149   A«-Pair2*tP*n 
7145   IF  A*<>"«"  THEN  Ymax"VAL<A*> 

7159  IF  A*»"*"  THEN  Pscal e-Psc al e+8 

7155   IF  <X«in"Xmax>  AND  <Xmax«Yrain>  AND  <Ymm»Ymax)  AND  <Y»ax»0>  THEN  Pscale-15 

7160  C29:   IF  Code<>29  THEN  Bye 
7165   Paxis-Tl 

7170   GOTO  Bye 

7175  Unset:   ! 

7180   IF  Code-26  THEN  Plim-0 

7185   IF  Code-27  THEN  Ploe-0 

7190   IF  Code«28  THEN  Pscale-0 

7195   IF  Code-29  THEN  Paxis»0 

7200  Bye:  ! 
7205   SUBEND 
7210   ! 
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7213 

7220 

7225 

7238   SUB  Smoothr<Code> 

7233   OPTION  BASE  1 

7240  COM  Command*<*> , Number  commands, Mode*, Menu, A5420, Word* <*), Pref i x* ( * > 

7245  COM  Editf*,Edit  1i ne, B5420, SHORT  Pdat a<*> , Npri nt , Sdat a<*> , Nsave, St  it 

7230  COM  Fi 1 e», SH0RT~St ate<*> , Ry <*> , Ix<*) , Sz<») , XI i ne, Tc , Tf , T i , Np, SI  ope , PI , P2 

7255  COM  SHORT  Xst  art ,  Xstep,  Rue  <•>,  Ixc  <*>,  Frc  <.*>,  Cp,  Int  ercept  ,  Frequency 

7260  COM  SHORT  PI i m, Pxo, Pxm, Pyo, Pym, P I oc , Xo, Xa, Yo, Ym, Pscal e, X»i n, Xmax , Ymi n,  Ymax  , 

Paxi  s 

7265  COM  SHORT  Cur ,  Pol  y,  Lsf ,  Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4, D5, D6, D7, D 

8,09 

7270  COM  SHORT  Fi nd_poi nts, Paper , B1 ue, Bl ack , Onn, Of f, Sk i p, Devi ce, Pager , Nopager 

7275  COM  SHORT  Tpscal e, Txmi n, Txmax, Tym i n, Tymax, Tnpt s, Tx<*> , Ty< *), Tf 1 g, X60, Every 

7280  COM  SHORT  Dpscal e, Dxmi n, Dxmax, Dym l n, Dymax, Dnpt s , Df 1 g, PI ot s, Cut , Nocut , T i me*C 

20] 

!  COM  SHORT  CPX,XTP<*),CPC,CTP<*) 
N«VALCWord*<X1 in»>> 

IF  (Code-32)  OR  <Code«34)  THEN  CALL  Smoot h< N, Np, Ry (♦> ) 
IF  <Code-33>  OR  (Code»34)  THEN  CALL  Smoot h< N, Np, I x <»> ) 
IF  <Code«35>  OR  CCode"37)  THEN  CALL  Smoot h<N, Cp, Rye <*)  ) 
IF  <Code«36>  OR  <Code«37>  THEN  CALL  Smoot  h<  N,  Cp,  1  xc  <.*)  > 


SUBEND 


SUB  Smooth<Spread, SHORT  Npoi nt s, AC*) > 

FOR  J«l  TO  Npoi nt »-Spread 

Si-0 

FOR  K«0  TO  Spread-1 

I-J  +  K 

Sign-SGN<A<I>> 

Si  «Si +Si gn*AC I )^2 

NEXT  K 

Sign»SCN(Si > 

Si»ABS<Si  > 

A< J>"SQR<Si  ^Spread ) *S i  gn 

NEXT  J 

SUBEND 


SUM  OF  SQRS  CORRECTED  FOR  SIGN  OF  0P1G.  NUMBER 


7285 

7298 

7295 

7308 

7305 

7310 

7315 

7320 

7325 

7330 

7335 

7340 

7345 

7358 

7355 

7368 

7365 

7370 

7375 

7388 

7385 

7398 

7395 

7488 

7483 

7418 

7413 

7428 

7425   SUB  C  dmp 

7438   OPTION  BASE  1 

7435  COM  CommandXO  ,  Number  commands  ,  Mode*,  Menu,  A5420,  Word*  (*>,  Pref  i  x*' *:> 

7440  COM  Editf*,Edit  1 i ne, B5420, SHORT  Pdat aC ♦ > , Npr i nt , Sdat •( * > , Nsave, St  at 

7445  COM  Fi 1 e*,  SH0RT~St at e< * > , Ry <»> , I x< *> , Sz<* ) , XI i ne, Tc , Tf , T i , Np, Slope,Pl,P2 

7450  COM  SHORT  Xst art , Xst ep, Rye («), I xc (*>, Frc (*>, Cp, Int ere ept , Frequency 

7455  COM  SHORT  Pli m,  Pxo, Pxm,  Pyo, Pym, PI oc , Xo, Xm, Yo, Ym, Pscal e , Xmi n, Xmax, Ymi n,  Ymax, 

Paxi  s 

7468  COM  SHORT  Cur , Pol y , Lsf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4, D5, D6,  D7,  D 

8.D9 

7465  COM  SHORT  Fi nd_poi nts, Paper , Bl ue, Bl ack , Onn, Of f, Sk i p, Devi ce, Pager , Nopager 

7478  COM  SHORT  Tpscal e, Txmi n, Txmax, Tymi n, Tymax, Tnpt s , Tx<0 , TyC* ), Tfl g, X60, Every 

7475  COM  SHORT  Dpscal e, Dxmi n, Dxmax, Dymi n, Dymax, Dnpt s, Df 1 g, P 1 ots, Cut , Nocut ,  T i me*C 

20] 

7488  !  COM  SHORT  CPX, XTP<«) , CPC, CTP( *) 

7485   PRINTER  IS  8 

7498   PRINT  SPA< 15) , "COMMAND  DUMP" 

7495   PRINT 

7588   FOR  L»l  TO  Number  commands 

7585   IF  Command*<L>Cl,2:<  >"""  THEN  7528 

7518   PRINT  L;TAB<8>;Co«mand*CL)tPref i x*(L> fcUord*CL> 
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7313   GOTO  7523 

7520   PRINT  L;TRB<11>; Command*<L>;TA8<33>;Pref i x*<L> ; TflB<37> ; Word*''L> 

7325   NEXT  L 

7330   PRINT 

7535   PRINT 

7340   PRINT 

7345   PRINTER  IS  16 

7350   CALL  Put  1 i ne< 16, 3, CHR*< 1 31 >fc"SYSTEM  BUSY"8,CHR*< 128 ) > 

7353   ASSIGN  #6  TO  "3420LF:F9" 

7560   PRINT  i6;Nu»ber_command$ 

7563   MAT  PRINT  t6; Command*, Word* , Prefi x* 

7570   ASSIGN  •  TO  #6 

7575   CALL  Put  1  i  ne(  16,  3,  CHR*(  128>«."  "> 

7580   SUBEHD 

7585   I 

7590   ! 

'595   ! 

7£0O   ! 

760S   SUB  Splot<Code,A*> 

7610   OPTION  BASE  1 

7615  COM  Command* <*), Number  commands, Mode*, Menu, A5420, Uord*<*>  ,  Prefi x*<*> 

7620  COM  EditfJ.Edit  1 i ne, B5420, SHORT  Pdat a<* ) , Npn nt , Sdat a<*> , Nsave, St  at 

7623  COM  Fi  1e*,SH0RT~State<:*),Ry<*>,  tx<*>  ,Sz<*> ,  XI  i  ne,  Tc.Tf  ,Ti ,  Np,  SI  ope,  PI ,  P2 

7630  COM  SHORT  Xstart , Xstep, Rye <•>, Ixc <»>, Frc <•>, Cp, Intercept , Frequency 

7633  COM  SHORT  PI i m, Pxo, Pxm, Pyo, Pym, P 1 oc , Xo, Xm, Yo, Ym, Psc al e , Xmi n, Xmax, Ymi n, Yroax , 

Paxi  s 

7640  COM  SHORT  Cur , Pol y , Lsf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4 , D3, D6,  D7,  D 

8.D9 

7645  COM  SHORT  Fi nd_po< nt s, Paper , B1 ue , Bl ack , Onn, Of f , Sk i p, Devi ce, Pager , Nopager 

7650  COM  SHORT  Tpsc  al  e  ,  Txmi  n,  Txmax,  Tymi  n,  Tymax,  Tnpt  s  ,  Tx<  *  ) ,  Ty  <  *  ; ,  Tf  1  g,  X60,  E'.'ery 

7653  COM  SHORT  Dpscal e, Dxrai n, Dxmax, Dym i n, Dymax, Dnpt s, Df 1 g, PI ot s, Cut , Nocut ,  Ti me*C 

201 

7660  !  COM  SHORT  CPX, XTPC •> , CPC, CTPC * > 

7663   IF  Code«30  THEN  Lsf-1 

7670   IF  Code-31  THEN  Poly-1 

7673   IF  Code-41  THEN  Cur-1 

7680   IF  Code<>42  THEN  Bye 

7665   Regi on»VAL<A*> 

7690   Pflg-0 

7693  Bye:   I 

7700   SUBEND 

7705   ! 

7710   ! 

7715   ! 

7720   ! 

7725      SUB   Zero    data_sets 

7730   OPTION  BASE  1 

7735   ON  ERROR  GOTO  Trouble 

7740   SHORT  X 

7745   DIM  Suf*C3> 

7750   DATA  "X",  "S",  "C" 

7755   MAT  READ  Suf* 

7760   FOR  K"l  TO  3 

7765   FOR  J-l  TO  6 

7770   Name*-VAL*CJ)«.Suf*<K)t":F8" 

7773   CALL  Put  1  i ne< 15+K,  < J-l >»12, Name*) 

7780   !  PURGE  Name* 

7785   GOTO  7795 

7790  Makf:   CREATE  Name*, 26 

7795   X»0 

7800   ASSIGN  #5  TO  Name* 

7805   PRINT  »5;X,X,X 

7810   ASSIGN  *  TO  »5 

7815   GOTO  7830 

7828  Trouble:   IF  ERRN-56  THEN  GOTO  Makf 

7825   STOP 

7830   NEXT  J 
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7835  NEXT  K 

7340  GOTO  By* 

7645  By*:   < 

7650  CALL  Cl*»r  lin*(15,4> 

7855  SUBEND 

7869  ! 
7865  ! 

7870  ! 
7875  ! 

7680  SUB  Ren  fil»(Huil) 

7885  OPTION  BASE  1 

7690  ON  ERROR  GOTO  Troubl* 

7695  DIM  Suf«<3> 

7908  DATA  "X",  "S",  "C" 

7905  MAT  READ  Suf* 

7910  FOR  K»l  TO  3 

7915  FOR  J-l  TO  6 

7920  Inpf*»VAI_*<J)lSuf*<l0  8.":F8" 

7925  0utf*»N*me*tl,4nVAL*<J>J.Suf*<IO 

7930  RENAME  Inpf*  TO  Outf* 

7935  GOTO  7950 

7940  Troubl*:   IF  ERRN054  THEN  STOP 

7945  PURGE  Outf* 

7950  NEXT  J 

7955  NEXT  K 

7960  GOTO  By* 

7965  By*:   ! 

7970  SUBEND 

7975  ! 

7980  ! 

7985  ! 

7990  ! 

7995  SUB  D*l_f i l«»CN»m**> 

8800  OPTION  BASE  1 

8005  ON  ERROR  GOTO  Troubl* 

8010  DIM  Suf*<3> 

8015  DATA  "X",  "S",  "C" 

8020  MAT  READ  Suf* 

8025  FOR  K«l  TO  3 

8030  FOR  J«l  TO  6 

8035  Fi  l»*  =  Nam**Cl,4:S,VAL*CJ)8iSuf*CK)8.":F8" 

8040  PURGE  Filt* 

8045  GOTO  8060 

8050  Troubl*:   IF  ERRN-56  THEN  8060 

8055  STOP 

6060  NEXT  J 

8065  NEXT  K 

8070  By*:   ! 

6075  SUBEND 

6080   ! 

8085   ! 

8090   ! 

6095   ! 

8100   SUB  LKNc,  A*<*>,B*<*>,C*<*>,Byt*s,R*cs> 

6105   Ls-0 

8110   Ms-0 

8115   N*-0 

8120   FOR  J«l  TO  Ne 

8125   L-LENCA*<J>> 

8130   M-LEN(8*<J>> 

8135   N-LEN<C*<J>> 

8148   IF  L  MOD  2-1  THEN  L-L+l 

8145   IF  M  MOD  2-1  THEN  M-M+l 

8150   IF  N  MOD  2-1  THEN  N-N+l 

6155   L*-L»*L*4 

8160   M*-M$*M+4 

8165   N*-Ns+N*4 
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9179 
9173 
9180 
018S 
8199 
8193 
8290 
8203 
8210 
8215 
8229 
8223 
8230 
8235 
8240 
8243 
8250 
8255 
9268 
8265 
8270 
8275 
8239 
8285 
8290 
8295 
8300 
8305 
8310 
8315 
8320 
8325 
8330 
8335 
8340 
8343 
8350 
8355 
8360 
8365 
8378 
8375 
8380 
8385 


NEXT  J 

Byt es-Ls+Ms+Ns 

R»cs»INT<Byt»s/256+.51> 

Recs-Ree»*l 

IF  Ree»-10  THEN  R«cs-ll 

IF  R*cs»26  THEN  Recs-27 

SUBEND 

I 

! 

I 

| 

SUB  PointsCN, SHORT  Cur, Pf 1 g, Pst art , Pst op, X_array < * > , Y_array <*> , Frc < •> > 

OPTION  BASE  1 

IF  Cur»0  THEN  Bye 

PRINTER  IS  0 

PRINT  LINC2), "CURSOR  ENABLED  FOR  INVESTIGATION  OF  POINTS" , LIN< 3) 

PRINTER  IS  16 


K»0 

Index-1 

Pmi  n»l 

Q»N 

IF  Pflg-0  THEN  8290 

Pmi  n-Ps tart 

Q-Pst op 

ON  KEY  »15,5  GOTO  Bye 

ON  KEY  #0,5  GOTO  P100 

ON  KEY  #1,5  GOTO  P30 

ON  KEY  #2,3  GOTO  P10 

ON  KEY  #3,5  GOTO  PI 

ON  KEY  #8,5  GOTO  M100 

ON  KEY  #9,5  GOTO  M38 

ON  KEY  #10,5  GOTO  M10 

ON  KEY  #11,5  GOTO  Ml 

ON  KEY  #7,5  GOTO  8380 

ON  KEY  #6,5  GOSUB  Dmp 

ON  KEY  #14,5  GOTO  Curoff 

ON  KEY  #4,5  GOTO  Advance 

ON  KEY  #12,6  GOTO  8365 

GOTO  8455 

P-0 

Ef lag-0 

IF  POl  THEN  8365 

PRINTER  IS  0 

PRINT  "INDEX: 

re  < Index) 

8390   PRINT 

8395   PRINTER  IS  16 

9400   GOTO  9365 

9405  P100:   K-100 

IF  K-0  THEN  K"30 
IF  K-0  THEN  K-10 
IF  K-0  THEN  K-l 

IF  K-0  THEN  K  — 100 
IF  K-0  THEN  K--30 
IF  K-0  THEN  K--10 
IF  K-0  THEN  K— 1 


;Ind«x,"X:  ";X_»rray< Index); "Y:  " ;Y_*rr»y< Index) , "FREQ: 


9410  P30: 

8415  P10: 

8420  Pi: 

8423  ni00: 

8430  1130: 

8435  1110: 

8448  m: 

8445   Lk-K 

8450   IF  Efl»g<>0  THEN  Advance 

8455   CALL  Poi ntr<K, Q, Pmi n, Index, X_arr»y<» ), Y_*rray< •) ) 

8460   GOTO  8365 

8465  Advance:   ! 

8470   IF  EflagOl  THEN  8500 

8473   ! 

8480   IF  Lk>0  THEN  K-l 

8485   IF  Lk<8  THEN  K— 1 

8490   CALL  PointP<K,0,Pmin, Index, X_array<*), Y_array<*) ) 
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8493 

esse 

6503 
8310 
8513 
8520 
8525 
8530 
8335 
8340 
8543 
8550 
8555 
8560 
8563 
8570 
8575 
8580 
8585 
8590 
8393 
8680 
8605 
8610 
8615 
8620 
8625 
8630 
8635 
8640 
8645 
8650 
8655 
8660 
8665 
8670 
8673 
8680 
8685 
8690 
8695 
8700 
8705 
0710 
8715 
8720 
8725 
8730 
8735 
8740 
8745 
8750 
8735 
8760 
8765 
8770 
8773 
8780 
8785 
8790 
8795 
8800 
8803 
8810 
8815 
8820 


WAIT  ABSCLk) 

Ef l»g-l 

GOTO  fldw»nc« 
No»dv:    Efl»g»0 

GOTO  8365 
Dmp:   PRINTER  IS  0 

IF  Paper- Bl»ck  THEN  PRINT  PAGE 

PRINTER  IS  16 

DUMP  GRAPHICS 

RETURN 
Curoff:   Cur»0 
Bye:   ! 

SUBEND 

! 

SUB  Pointr<REAL  K, N, Pmi n, Index, SHORT  X<*>,Y<*>) 

Index-Index+K 

IF  Index>H  THEN  Index-N 

IF  Index<P»in  THEN  Index-Pmin 

POINTER  X<Index>, Y<Index>,2 

K-0 

SUBEND 


SUB  Least  <M,XCO,F<*>,Eps,f1»xdeg,Ndeg,  Array  <■*> ,  R<»>> 

OPTION  BASE  1 

Ib-I1*xdeg*l 

Ibl2»M»xdeg-l 

Ic»Ib+tb12 

101 l«Ic+M»xdeg 

1111-1011+11 

Rm-M 

Tol "Rm*Eps~2 

Ndeg-0 

S-0 

Xsu»«0 

FOR    1-1    TO    M 

S-S*l 

X*um«Xsum+l*F<  I  > 

NEXT    I 

Rn0-S 

Ck«Xium/Rne 
Arr*y< Ic >"Ck 
Error-0 
FOR    1-1    TO    II 
R(I>«Ck 

Error-Error+l*<Ck-F<I>>~2 
NEXT    I 

IF   Ndeg»Haxdeg    THEN    L14 
IF    Eps<0    THEN    L3 
IF    Error<«Tol    THEN    L14 
I 
L3:       Nd»g-1 
Es-Error 
X»u»»0 

FOR    1-1    TO    II 
X*up»«Xsum+l*X<I  > 
NEXT    I 
I 

Array  <  1  )  -X*ui»'Rn0 

I 

S-0 

XSUB-0 

FOR    I-l    TO    M 

Arraydl 1 1+1 >-X< I >-Array < 1 > 
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8825 

8838 

8835 

8848 

8845 

8858 

8855 

8868 

8865 

8878 

8875 

8888 

8885 

8898 

8895 

8988 

8985 

8910 

8915 

8928 

8925 

8938 

8935 

8948 

8945 

8958 

8955 

8968 

8965 

8978 

8975 

8988 

8985 

8998 

8995 

9888 

9885 

9818 

9815 

9828 

9825 

9838 

9835 

9040 

9845 

9850 

9855 

9860 

9065 

9070 

9875 

9088 

9885 

9090 

9095 

9100 

9105 

9110 

9115 

9120 

9125 

9130 

9135 

9140 

9145 

9150 


S«S*l*Rrray(Ill 1*1 5"2 

T«»p-F<I>-R<I> 

Xsu»«Xsu»+l*flrray<Ill l-*I)*T«mp 

NEXT    I 

Rnl-S 

l 

Ck-Xsum'Rnl 

flrray<Ic+l>"Ck 

I 

Error"0 

FOR    1-1    TO   PI 

R<I)"R(I>+Ck*flrray<111 1+I> 

Epror»Error+l*<R<I)-FCI))-2 

NEXT    I 

IF  (Error >Es>  AND  <Eps>»0>  THEN  L12 

IF  Nd»g»Plaxd«g  THEN  L14 

IF  <Error<-Tol>  AND  <Ep*>-0>  THEN  L14 

FOR  1-1  TO  PI 

flrray<101  1  +  D-l 

NEXT    I 

Nd«g-2 

K-2 


L8: 


Es»Error 


flrr*y(  lb  I  2+K)»Rnl/'Rn0 

I 

Xsum-0 

FOR    I"l    TO   M 

Xsum»Xsum+l*X(I )*flrray(Ill 1+I>~2 

NEXT    I 

Array  dO-Xsum/Rnl 

j 

S-0 

Xsuma0 

FOR    I"l    TO    PI 

Array ( 101 1+1 >=(X( I )-flrr ay  OO )*Rrray<I 1 1 1  +  1 >-Rrray<  Jbl 2*K>#Array < 101  1  +  1 

S«S*l»firray(I01 1+I)~2 

Tnp«F(I)-S(I) 

Xsum»Xsum*firray(I81 l+I>*Temp 

NEXT  I 

Rn8"Rnl 

Rnl-S 

It-I01 1 
101 1-111  1 
111 l"It 
{ 

Ck"Xsum/Rnl 
Rrray(Ic*K>«Ck 
j 

Error«0 
FOR  I"l  TO  PI 

R(I>"R(I>*Ck»flrray(Ill 1+I> 
Error»Error+(R< I >-F( I >  >-*2 
NEXT  I 

IF  <Error>Es>  RND  (Eps>-0>  THEN  L12 
IF  Nd»g»Plaxd«g  THEN  L14 
IF  (Error<"To1>  RND  <Eps>-0>  THEN  L14 
Nd»g»Nd«g+l 
K-K  +  l 
GOTO  L8 
; 
L12:   Nd»g»Nd»g-l 
Error"E$ 
FOR  1-1  TO  PI 
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9133   R<I)"R<I>-Ck*flrray<Ill 1*1) 

9166   NEXT  I 

9165   ! 

9178   GOTO  By« 

9173   ! 

9180  L14!   Eps-SQR<Error'Rm> 

9183  Bye:   ! 

9198   SUSEND 

9193   ! 

9288   ! 

9283   ! 

9218   DEF  FNEual  <Y,N,  Array <♦>, Maxdeg) 

9213   OPTION  BASE  1 

9228   Ib«n*xd*g»l 

9225   Ic-Maxdeg-Ib-1 

9238   ! 

9233   IF  N>8  THEN  LI 

9248   RETURN  Array(Ic) 

9245   ! 

9238  Li:   IF  N>1  THEN  L2 

9255   RETURN  Array < Ic >+Array< Ic*l >*<Y-Array< 1 > > 

9268   ! 

9265    12:       Dkp2«Array<Ic+N> 

9278      Dkpl-Array<Ic*N-l>*<Y-Array<N>)*Dkp2 

9275      N12-N-2 

9288      IF    N12<1    THEN    L4 

9285      FOR    L-l    TO    N12 

9298      K-1+N12-L 

9295       Dk»Array<Ic+IO  +  <Y-Array<K+l)>*Dkpl-Array<Ib*K;>*Dkp2 

9388      Dkp2"Dkpl 

9385   Dkpl-Dk 

9318   NEXT  L 

9315    L4:       RETURN    Array  C  I  c  >♦<  Y-Array  <  1  )  >*Dkpl  -Array  (  lb)  *Dk  pi 

9328  By*:   i 

9325   FNEND 

9338 

9333 

9348 

9345 

9358 

9355 

9368   SUB  Fit <Maxdeg,Desdeg,N,  SHORT  X  array  <  *  >  ,  Y_arr •*.,'<«)  > 

9365   OPTION  BASE  1 

9378  COM  CommandSC*),  Number_c  ommands  ,  Mode*,  Menu,  A5420,  Word*<  *>,  Pref  i  >.*■• *  > 

9375  COM  EditfJ.Edi t_l ine,B5420, SHORT  Pdat a<*> , Npr i nt , Sdai a<*) , Nsaue,  St  at 

9388  COM  File*, SHORT  St  at e < » > , Ry (»> , Ix ( * ) , Sz<* ) , XI i ne, Tc , Tf , Ti , Np, S 1  ope , P 1 , PZ 

9385  COM  SHORT  Xst  art ,  Xst  ep,  Rye  <»>,  I  xc  (.*>,  Frc  <»>,  Cp,  Intercept  ,  Frequenc  y 

9398  COM  SHORT  Pli a, Pxo,  Px», Pyo, Pym, PI oc , Xo, Xm, Yo, Ym, Psc al e , Xmi n, Xmax, Ymi n, Ymax, 

Paxi  s 

9395  COM  SHORT  Cur , Pol y , Lsf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4, D5,  D6,  B7,  D 

8,09 

9480  COn  SHORT  Find  poi nts, Paper , Bl ue, Bl ack , Onn, Of f, Sk i p, Deui ce, Pager , Nopager 

9485  COM  SHORT  Tpscal  e  ,  Txni n, Txmax, Tymi n, Tymax, Tnpt s, Tx<*>  ,  Ty< *), Tfl g,  X68,  Every 

9410  COM  SHORT  Upscale, Dxmi n, Dxroax, Dymi n, Dymax, Dnpts, Df 1 g, Plots, Cut ,Nocut , TimeJC 

283 

9415  !  COM  SHORT  CPX, XTP<»> , CPC, CTP< * ) 

9428   DIM  X<38>,F<30>,R<38>, Array<280>, Ip<30> 

9425   IF  Region-8  THEN  9458 

9438   Pl-Pstart 

9435   P2"Pstop 

9440   GOTO  C 

9445   ! 

9458   Index-1 

9435   Pnin-1 

9468   Sf lg«Sf lg+1 

9463   IF  Sflg-2  THEN  Bye 
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9479   ON  KEY  §15,3  GOTO  Onward 

9473   ON  KEY  «0,3  GOTO  P10O 

9460   ON  KEY  #1,5  GOTO  P30 

9483   ON  KEY  t2,5  GOTO  P10 

9490   ON  KEY  t3,5  GOTO  PI 

9495   ON  KEY  #6,5  GOTO  M100 

9500   ON  KEY  #9,5  COTO  M30 

9505   ON  KEY  #10,5  GOTO  M10 

9510   ON  KEY  #11,5  COTO  Ml 

9515   ON  KEY  »5,5  GOTO  Pm  1 

9520   ON  KEY  #13,5  GOTO  Pnt2 

9525   ON  KEY  96,6    GOSUB  Dnp 

9530   GOTO  B 

9535  A:   P-0 

9540   IF  POI  TNEN  A 

9545  Pnti:   Pl-Indtx 

9550   BEEP 

9555   COTO  ft 

9560  Dap:   PRINTER  IS  0 

9565   IF  P»p«r«Bl»ck  THEN  PRINT  PAGE 

9570   PRINTER  IS  16 

9575   DUMP  GRAPHICS 

9380   RETURN 

9585  Pnt2:   P2»Index 

9390   BEEP 

9395   GOTO  ft 

9600  P100:   K-100 

9605  P30:   IF  K-0  THEN  K-30 

9610  P10:   IF  K-0  THEN  K-10 

9615  Pi:   IF  K-0  THEN  K-l 

9620  M100:    IF  K-0  THEN  K--100 

9623  M30:   IF  K-0  THEN  K  — 30 

9630  Ml©:   IF  K-0  THEN  K  — 10 

9633  Ml:   IF  K-0  THEN  K— 1 

9640  B:   CALL  PointrCK.N.Pmin, Index, X  array<*),Y  »rray<*>> 

9643   GOTO  ft 

9650   ! 

9655  Ohuard:   T-P2 

9660   IF  P2<P1  THEN  P2-P1 

9665   IF  P2-P1  THEN  Pl-T 

9670   ! 

9675  C:   ! 

9680   IF  M»xdtg>18  THEN  Maxdeg-13 

9685   Sflg-1 

9690   Ql-Pl 

9695   Q2-P2 

9700   IF  R»gion<>0  THEN  Ql-Pstart 

9705   IF  R»gion<>0  THEN  Q2-Pstop 

9710   IF  Find  point-0  THEN  CALL  Aut oq( I , X<*) , F< » > , Ql , Q2, N, X_*rray < * ) , Y_»rr»u(#) > 

9715   IF  Find~point-l  THEN  CALL  Aut ol( I , X<« ) , F<»> , Ql , Q2, N, X_array c * > , Y_array < *) > 

9720   IF  Find~point»2  THEN  CALL  Manul < I , X<» > , F< *> , Ql , Q2, N, X~array <* > , Y_array <* > > 

9723   FOR  K-l"TO  I 

9738   PLOT  X(K>,Y»in,-2 

9735   PLOT  XCK), Ymin,-1 

9740   PLOT  X<K>, Y»ax,-1 

9743   NEXT  K 

9730   M-I 

9733   Ep»  — 1 

9760   Nd»g-M-2 

9765   Haxd«g-M-2 

9770   IF  Maxd»g>10  THEN  Maxdeg-10 

9775   Ndtg-Maxd*g 

9780   CALL  L»ast<M,X<*),F<»>,Eps,Maxdeg,Nd«g, Array <*>, R<*> > 

9785   I  PRINTER  IS  0 

9790   I  MftT  PRINT  F; 

9795   I  PRINT 
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9806   !  MRT  PRINT  R; 

9665   <  PRINT  Ndeg.Eps 

9818   !  PRINT 

9813   Spread«XCM)-X(l> 

9828   Delta-Spread/127 

9825   N«M 

9838   FOR  J«l  TO  128 

9633   Tx<J>«XCl)*D*lta*<J-l> 

9848      TyCJ)-FNEval (T, Ndeg, Flrray< *> , Maxdeg) 

9843      NEXT    J 

9838   Tnpts-128 

9833  By*:   ! 

9868   SUBEND 

9865 

9878 

9873 

9888   ! 

9885      SUB    Suap    seal e<N, SHORT    X    array<*),Y    array<*>> 

9898   OPTION  BASE  1 

9895   COM  Command* < O , Number_commands, Mod**, Menu, A5420, Word* <*),Pref i x*<*> 

9988   COM  Editf*,Edit  1 i ne, B5420, SHORT  Pdat  a<  *  ) ,  Npn  nt  ,  Sdat  a<  •  >  ,  Nsawe,  St  at 

9985   COM  File*,  SHORT~St  at  •  (  *  ) ,  Ry  <•>  ,  tx<*>  ,  $Z<*>  ,  XI  in*,  Tc  ,  Tf  ,Ti  ,  Np,  SI  op«,  PI ,  P2 

9910   COM  SHORT  Xst art ,  Xst cp, Rye <* > , I xc <* ) , Frc < * ) , Cp, Int ere ept , Frequmc y 

9915   COM  SHORT  PI  i m,  Pxo,  Pxm,  Pyo, Pym, PI oc , Xo, Xm, Yo, Ym, Pscal € , Xmi n, Xmax, Ymi n, Ymax 

,  P  ax  i  s 

9920   COM  SHORT  Cur ,  Pol  y ,  Lsf , Sf 1 g, R*gi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4, D5, Be, D7, 

08,119 

9925   COM  SHORT  Fi  nd_poi  nt  s,  Paper  ,  B  1  ue  ,  B1  ack  ,  Onn,  Of  f,  Sk  i  p,  Dev  i  c  e  ,  Pager  .  Nopager 

9930   COM  SHORT  Tpsc al  e,  Txmi n, Txmax, Tymi n, Tymax, Tnpts, Tx(*> , Ty(* >, Tf 1 g,  V.6Q , Every 

9935   COM  SHORT  Dpsc al e  ,  Bxm i n, Dxmax, Dymi n, Dymax, Dnpt s, Df 1 g, PI ot s, Cut , Noc ut , T i me* 

[20] 

9948   !  COM  SHORT  CPX, XTPC ♦) , CPC, CTPC ♦  ) 

9945   Dnpts»N 

9950      Dpscal e«Pscal e 

9955   Dxmin«Xmin 

9960   Dx»ax«Xmax 

9965   Dymin»Ymin 

9970   Dymax»Ymax 

9975      Pscal e«Tpscal e 

9980   Xmin»Txmin 

9965   Xmax«Txmax 

9990   Ymin»Tymin 

9995   Ymax«Tymax 

10888  FOR  J«l  TO  Tnpts 

18005  Tl«X_array<J) 

10010  X  array<J>«Tx<J> 

18815  Tx(J)«Tl 

18820  Tl-Y  array<J> 

10825  Y  arrayCJ)-Ty(J) 

18838  Ty<J)-Tl 

18835  NEXT  J 

18848  N-Tnpts 

18845  SUBEND 

18058  ! 

18855  > 

18060    SUB    Unswap_seale<N, SHORT    X    array<*>,Y    array<*>> 

18865  OPTION  BASE  1 

18878  COM  Co»mand*<:*), Number  commands, Mode*, M«nu, A5420, Uord*< *>, Pref i x*< *> 

18075  COM  Editf*,Edit  1 i ne, B5420, SHORT  Pdata(*> , Npn nt , Sdata<*> , Nsave, Stat 

10888  COM  Fi 1e*,SH0RT~State<O,Ry<*>, Ix<*> , Sz<*> , XI i ne, Tc , Tf , Ti , Np, SI  ope, PI , P2 

18885  COM  SHORT  Xst art , Xst ep, Rye CO, Ixc <*), Frc <»>, Cp, Int ereept , Frequency 

18898  COM  SHORT  PI  i m,  Pxo,  Pxm,  Pyo,  Pym, PI oc , Xo, Xm, Yo, Ym, Pscal e, Xmi n, Xmax,  Ymi n, Ymax 

,  P  ax  i  s 

18895  COM  SHORT  Cur , Pol y , Lsf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4, D3, Do , D7, 

D8.D9 

18188  COM  SHORT  Find  points, Paper , Bl ue, Bl ack , Onn, Of f, Sk i p, Deui ce, Pager , Nopager 
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19105  COM  SHORT  Tpscal •, Txmt n, Txi»ax, Tymi n, Tymax, Tnpts, Tx<*> , Ty (* > , Tf 1 g, X60,  Euery 

10118  C0I1  SHORT  Dpscale.Dxmin, Dxmax, Dymin, Dymax, Dnpts, Dfl g, Plots, Cut ,Nocut ,  Ti m«* 

C20] 

10115  !  COM  SHORT  CPX,XTP<#>,CPC,CTP<*> 

10120  N«Dnpt* 

10125  P*c»l*-Dpscalt 

10130  Xmin*Dxmin 

10135  X»*x»Bxmax 

10140  Y»in»Dymin 

10145  Y»ax«Dyraax 

10150  FOR  J-l  TO  Tnpts 

10155  X  array <J>-Tx<J> 

10160  Y~»rray<J>"Ty<J> 

18165  NEXT  J 

10170  SUBEHD 

10175  ! 

10180  ! 

10185  SUB  Rutol <Ij,XC«>,F<*>, PI, P2, SHORT  Npt s , X_arr ay < ♦ > , Y_array <* ) > 

10190  OPTION  BRSE  1 

10195  Din  K25), D<25) 

10200  Ij-25 

18205  Plsumx-e 

10210  P2sumx«e 

10215  Plsumy-0 

10220  P2sumy-a 

10225  S-5   !  AVE  SPREAD 

10230  FOR  J"-S  TO  S 

10235  Plsumx«Plsumx+X_array<Pl+J-l> 

10240  Plsu»y*Plsumy*Y~array<Pl*J-l> 

10245  P2sumx«P2sumx*X~array(P2-J+l  > 

10250  P2sumy»P2sumy+Y-array<P2-J+l ) 

10255  NEXT  J 

10260  ! 

10265  ICD-P1 

10270  K25)«P2 

10275  X(l>-Plsumx/S 

10280  F(l>«Plsumy'S 

10285  X<25)«P2sumx/S 

10290  F<25>»P2suny/S 

10295  D«lt»(XC25)-X<l>>'24 

10300  FOR  J-2  TO  24 

10305  X<J)-X<l>*Dtlt*(J-l> 

10310  NEXT  J 

10315  ! 

10320  FOR  J"2  TO  24 

10325  D<J)»1E99 

10330  NEXT  J 

10335  ! 

10340  Xsun-0 

10345  FOR  J«P1  TO  P1+2»S   !  AVER.  FOR  FIRST  2S  POINTS 

10350  Xsum«xsum+X  array(J) 

10355  NEXT  J 

10360  fiue-X»u*/(2*S> 

10365  ! 

10370  K-Pl+1 

10375  FOR  U-K  TO  P2-S   I  THE  RUNNING  AVERAGE 

10380  X»um-Xsu«*X_array<U-i-S>-X_array<U-S> 

10385  Au»-Xsu«'<2»S> 

10390  FOR  J-2  TO  24 

10395  IF  ABSCAv«-X<J)>>D<J>  THEN  A 

10400  I(J»U 

10405  D<J>-ABS<Av»-X<J>> 

10410  !  IF  J-2  THEN  PRINT  J; Di f f , Hi np, D< J) 

10415  A:  NEXT  J 

10420  NEXT  U 

10425  !  PRINTER  IS  0 

10430  I  HAT  PRINT  X; 
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19433  !  PRINT 

10440  !  HAT  PRINT  I; 

10445  !  PRINT 

10430  !  HAT  PRINT  D; 

10433  !  PRINT 

10460  ! 

10463  FOR  J«2  TO  24 

10479  P'KJ) 
10473  Suny-0 

10480  Sumx-0 
10485  N-0 

10498  FOR  K"KJ)-S  TO  I(J)+S 

1B493  N-N+l 

10300  P-K 

10503  IF  P<1  THEN  P-l 

10310  IF  P>Npt*  THEN  P-Npt» 

10315  Sumy-Su*y*Y  array < P)~2*SGN< Y_array <P> > 

10520  Su»x-Sumx*X-array<P>-2»SGNCX~array<P>) 

10525  NEXT  K 

10530  F<J>-SQR<ABS<Sumy'N>>#SGN<Sumy> 

10535  XCJ>»SQR(ABS<Su«ix'N>  >»SGN<Sumx> 

10540  NEXT  J 

10545  !  HAT  PRINT  X; 

10550  !  PRINT 

10555  !  HAT  PRINT  F; 

10560  SUBEND 

10565  ! 

10570  ! 

10575  ! 

10580  ! 

10583  SUB  Lsqf it <Code,N, SHORT  X_array <*> , Y_array <*) > 

10590  OPTION  BASE  1 

10595  COH  Command* <  *> , Number_commands,  Mode*,  Menu , A5420, Word*< O  .Prefix*''*"' 

10600  COM  Editf*,Edit  1  i  ne,  B5420,  SHORT  Pdata<*> ,  Npri  nt ,  Sdat  a<*  ) ,  Nsave,  St  at. 

10605  COM  Fi 1 e«, SH0RT~S t at e<0,Ry<»>, Ix<*> , Sz<» > , XI i ne, Tc , Tf , T i , Np, SI  ope, P 1 ,  P2 

10610  COM  SHORT  Xstart , X*t ep, Rye <*> , Ixc <*> , Frc <♦> , Cp, Intercept  .Frequency 

10615  COM  SHORT  PI i m, Pxo, Pxni, Pyo, Pym, P1 oc , Xo, Xm, Yo, Ym, Psc al e, Xmi n, Xmax,  Ymi  n,  Ymax 

, Paxi  s 

10620  COM  SHORT  Cur , Pol y , Lsf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, D 1 ,  112, D3 , B4, D5, D6,  D7, 

1)8,1)9 

10623  COM  SHORT  Ft nd_poi nts, Paper , Bl ue, Bl ack , Onn, Of f, Sk i p, Deui ce, Pager , Nopager 

10630  COM  SHORT  Tpsc at e, Txmi n, Txmax, Tymi n, Tymax, Tnpt s , Tx<* ), Ty< *>, Tf 1 g, X6G , Every 

10633  COM  SHORT  Dpscal e, Dxmi n, Dxmax, Dymi n, Dymax , Dnpt s , Df 1 g, PI ot s, Cut , Nocut , T t me* 

[20] 

10649  !  COM  SHORT  CPX, XTP<»> , CPC, CTP< *) 
19645  SCALE  Xan  n, Xmax, Ymi n, Ymax 

10650  Sf1g-Sflg*l 

10655  IF  Sflg-1  THEN  10665 

10660  IF  Sflg«2  THEN  Bye 

10665  Index-1 

10670  Pmin-1 

10675  IF  <Region»0)  AND  <D8»9>  THEN  10700 

10680  IF  D8-1  THEN  CALL  LsqautoCN, X_array ( * > , Y_array < * > , Regi on, Pst art , Ps t op , D8,  P 

1,P2, Ymin, Ymax) 

10685  IF  1)8-1  THEN  Onuard 

10690  GOSUB  Dmp 

10695  GOTO  Onuard 

10700  ON  KEY  #15,5  GOTO  Onuard 

10705  ON  KEY  «0,5  GOTO  P100 

10710  ON  KEY  #1,5  GOTO  P30 

10715  ON  KEY  #2,5  GOTO  P10 

19720  ON  KEY  #3,5  GOTO  PI 

10725  ON  KEY  #8,5  GOTO  M100 

10730  ON  KEY  #9,5  GOTO  M30 

19735  ON  KEY  #19,5  GOTO  M18 

19740  ON  KEY  #11,5  GOTO  Ml 
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16745  ON  KEY  »5,5  GOTO  Pnt 1 

18758  ON  KEY  #13,5  COTO  Pnt2 

10755  ON  KEY  »7,5  COTO  Prnt 

18768  ON  KEY  #6,5  GOSUB  Dmp 

18765  GOTO  B 

18778  R:  P-8 

18775  Pf-8 

18788  IF  POl  THEN  A 

18785  ! 

18798  Dnp:  PRINTER  IS  8 

18795  IF  Paper-Black  THEN  PRINT  PAGE 

18888  PRINTER  IS  16 

18885  DUMP  GRAPHICS 

18818  RETURN 

18815  Pnti:  Pi-Index 

18828  BEEP 

18825  PLOT  X  trriy < Index) , Ymi n, -2 

18838  PLOT  X~arr ay (Index), Ymax,-1 

18835  PLOT  X~array<Index>, Y_array( Index) ,- 1 

18848  COTO  A~ 

18845  Pnt2:  P2-Index 

18858  BEEP 

18855  COTO  18825 

18868  i 

18865  P188:  K-188 

18878  P38:  IF  K-8  THEN  K>38 

18875  P18:  IF  K-8  THEN  K-18 

18888  Pi:  IF  K-6  THEN  K-l 

18885  mee:  if  k-8  then  k»-i88 

10898  1138:  IF  K-8  THEN  K  — 38 

18895  me:  if  k-8  then  k—  le 

18988  Ml:  IF  K-6  THEN  K  — 1 

18985  B:  CALL  Pointr<K,N,Pmtn, Index, X_array < * ) , Y_arr ay < * ) ) 

18918  COTO  ft 

18915  ! 

18920  Prnt:  Pf-1 

10925  Onward:  IF  (Region«0)  AND  <Pflg=0>  THEN  GOSUB  Dmp 

18938  T-P2 

18935  IF  Pf1g-8  THEN  16956 

10940  Pl-P*tart 

10945  P2»Pstop 

10958  IF  P2<P1  THEN  P2-P1 

16955  IF  P2-P1  THEN  Pl-T 

16968  Npts«P2-Pl*l 

18965  Of»et-Pl 

18978  ! 

18975  Sumx-9 

18988  Sumy«0 

18985  Su«ixy«e 

18998  Su»xsq-8 

18995  Suaysq-6 

11888  FOR  J"P1  TO  P2 

11885  I«J 

11818  Su»x»Su«x*X_array< I > 

11815  Su«x»q-Su»x7q*X_array< I )*2 

11828  Su«y-Su»y*Y_array< I ) 

1 1825  Su«xy-Su»xy*X_array< I )»Y_array< I ) 

11838  Su»y»q»Su«iysq+Y  array<I)~2 

11835  NEXT  J 

11646  B-<Su»y»Su«x»q-Su«x*Su»xy)'<Npts*Sumxsq-Sijmx'2> 

11845  f1"CNpt»»Su«xy-Su«x»Sui»y>/'<Npts*Sutiix»q-Sumx^2) 

nese  Sunxi-e 

11055  Sumy  1-8 

11668  Sumxy-0 

11865  Suaxsq-8 

11878  Suaysq-8 
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11075  fluix'Sumx/Npt i 

11080  Av*y«Suay'Npt» 

11083  FOR  J-Pl  TO  P2 

11090  Suaxl«X_»rr»y<J>-Avex 

11093    Suayl"Y~»rr»yU>-Avey 

11100    Suaxy"Su«xy*Suaxl»Sunyl 

11103    Suaxsq»Suaxsq*Suaxl "2 

11110    Suaysq-Suay»q*Suayl~2 

11115   NEXT    J 

11120  R"Sumxy/'SQR<Suax*q«Sumysq> 

11123  Slope-M 

11130  Int»rc»pt»B 

11133  PRINTER  IS  0 

11140  PRINT  LIN<6>,TAB<5>; "EQUATION  OF  LINE:   Y   *  •;«{"  *  X   +  ( " ; B ; " V ; LIN<2) 

11145  PRINT  TAB<5>;"C0RRELATI0N  COEFFICIENT  -  ";R;LIN<6> 

11130  PRINTER  IS  16 

11135  IF  Pf-1  THEN  A 

11160  ! 

11165  Xl-X  »rr»y<Pl> 

11170  X2"X~*rp»y<P2) 

11175  D«H*-CX2-X1)/'127 

11180  >  PRINT  XI, X2, Delta 

11185  FOR  J-l  TO  128 

11190  TxCH-Xl+Del  t»«<J-l> 

11195  TyCJ>-H»Tx<J>+B 

11200  !  PRINT  Tx<J),Ty<J) 

11205  NEXT  J 

11210  IF  Tfl*g<>0  THEN  Sc 

11215  Txain-0 

11220  Tx«i»x«Tx(l> 

11225  Tyain-Ty(l) 

11230  Tya»x«Ty<l> 

11235  FOR  J»l  TO  128 

11240  Txa*x»MAX<Txr»»x,Tx< J)) 

11245  Tyn*x»MAX<Tym*x,Ty<J>> 

11250  Tymin-HIN<Ty»in,Ty<J>> 

11255  NEXT  J 

11260  Txa»x-Txa»x*ABS<.  l»Txi»ax> 

11265  Tymi n"Tymi n-ABS< . l*Tymi n) 

11270  Tym»x»Tym*x*ABSc. l*Tym»x) 

11275  Tp*c»1*«8 

11280  Tnpts»128 

11283  Lsf»2 

11290  Sc:  CALL  Su*p  sc »1 e<N, X_»rr»y <» ) , Y_*rr»y <* > > 

11295  By*:  ! 

11300  CALL  An»lysis<Code,N,X  »rr»y <♦>, Y_»rr»y< *) > 

11305  EXIT  GRAPHICS 

11310  SUBEND 

11315  ! 

11320  ! 

11325  ! 

11330  ! 

11335  SUB  L*q*uto<N, SHORT  X(»> ,  Y(*> ,  Regi on, Pstart , Pst op, D8, PI , P2, Ymm, Ymax) 

11340  Lou»r-l 

11345  Upp»r«N 

11330  IF  Region  THEN  Lower-Pst»rt 

11335  IF  Region  THEN  Upper-Pstop 

11360  U-Yaax-. 15«(Ya»x-Yain> 

11365  L-Yain*.  15«< Ya*x-Yai n> 

11370  FOR  J-Upper  TO  Lower  STEP  -1 

11375  Pl-J 

11380  IF  Y<J>>L  THEN  N2 

11385  NEXT  J 

11390  N2:  FOR  J-Louer  TO  Upper 

11395  P2-J 

11400  IF  YCJXU  THEN  N3 

11405  NEXT  J 
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11410  N3:  IF  PKP2  THEN  H4 

11415  !  Pl-Louer 

11420  !  P2-Upper 

11423  H4:  PLOT  X<Pl>,Y«in,-2 

11430  PLOT  X<Pl>,Y«»x,-l 

11433  PLOT  X<P2>,Y»in,-2 

11440  PLOT  X<P2>,Y»ax,-l 

11445  PLOT  XCP2>,YCP2>,-2 

11430  SUBEND 

11433  !  .    K. 

11460  SUB  Rutoq<I,X<«>,F(#),F<»>, PI, P2.N, SHORT  X_arr ay < *> , Y_arr ay <* ) > 

11463  Npts-P2-Pl-H 

11470  Of*et-Pl 

11473  S-INT((Npt»-20)''2O*.3) 

11460  D-10  !  ♦-  AVERAGE 

11483  IF  S<10  THEN  D-S-l 

11490  1-0  !  NODE  COUNTER 

11493  Sl-S+Pl+1 

11300  S2-P2-S 

11303  FOR  K-Sl  TO  S2  STEP  S 

11310  1-1*1 

11313  L-0 

11320  Sunx-0 

11523  Sumy-0 

11330  S3-K-D 

11535  S4-K+D 

11540  FOR  J-S3  TO  S4 

11545  L-L*l 

11550  Sumx«Sumx+X  array < J >-2*SGN<X_arr ay ( J) > 

11533  Su»y-Su«yfY2*rr*y<J>~2»SGN<Y_array<J>> 

11360  NEXT  J 

11565    XU>-SQR<fiBS(Sumx'L>>*SGN<Sumx) 

11570  F<I )-SQR(flBS<Sumy-L) >*SGN(Sumy) 

11575  NEXT  K 

11580  SUBEND 

11585  ! 

11590  ! 

11595  ! 

11600  ! 

11635  SUB  Manul <I,X<«>,F<*),Q1,Q2,N, SHORT  X_array < *> , Y_array <*> > 

11610  OPTION  BASE  1  ■  .-  - 

11615  COH  Command*<*>,Number  commands,  nod**, Menu, A5420, Word*' *>, Pref l x»'  ■*, 
11628  COM  EditfS.Edit  1 i ne, B5420, SHORT  Pdata<*> , Npr i nt , SdataC*) , Nsave, St  at 
11625  COM  Fi)t*,SHORT~Sx*t«<»>,Ry<»>,Ix<«>,Sz<0,xnn«,Tc,TftTi,Np,Slope,Pl,P4 
11630  COM  SHORT  X*t art , Xstep, Rye <•>, I xc <•), Fr;c (*>, Cp, Intercept , Frequency 
11635  COM  SHORT  Pli m, Pxo, Pxm, Pyo, Pym, P 1 oc , Xo, Xm, Yo, Ym, Pscal e, Xmi n, Xmax, Ym I n, Ymax 

11640  COM  SHORT  Cur, Poly, Lsf.Sflg, Region, Pf 1 g, Pstart ,P*top, Dl , D2, D3, D4, D5, DS, D7, 

08,  D9 

11645  COM  SHORT  Find  pot nts, Paper , Bl ue, Bl aek , Onn, Of f, Sk i p, Devi ce, Pager , Nopager 

11630  COM  SHORT  Tp»cal e , Txmi n, Txmax , Tymi n, Tymax, Tnpts, Tx< •>, Ty< *;, Tfl g, XbO, Every 

11655  COM  SHORT  Dpsc al e, Dxmi n, Dxmax, Dymi n, Dymax, Dnpt *, Df 1 g, PI ot s, Cut , Nocut , T i me* 

C203 

11660  !  COM  SHORT  CPX, XTP< ») , CPC, CTPC »> 

11665  DIM  P<30> 

11670  1-0 

11675  P«in-Ql 

11680  K-0 

11685  Index-1 

11690  ON  KEY  #15,5  GOTO  Onward 

11695  ON  KEY  »0,5  GOTO  P100 

11700  ON  KEY  »1,5  GOTO  P30 

11705  ON  KEY  «2,5  GOTO  P10 

11710  ON  KEY  »3,5  GOTO  Plx 

11715  ON  KEY  #8,5  GOTO  M100 

11720  ON  KEY  «9,5  GOTO  M30 
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11725  ON  KEY  »1B,5  GOTO  M10 

11730  ON  KEY  »11,3  GOTO  Ml 

11735  ON  KEY  »5,3  GOTO  Pnt 1 

11740  !  ON  KEY  #13,5  GOTO  Pnt 1 

11745  ON  KEY  414,5  GOTO  Uipvout 

11750  ON  KEY  #7,5  GOTO  Prnt 

11735  ON  KEY  #6,5  GOSUB  Dap 

11760  GOTO  3 

11763  A:  P-0 

11770  Pf-0 

11775  IF  POl  THEN  A 

11780  Pnti:  IF  1*1 >30  THEN  Too_»»ny 

11783  I-I  +  l 

11790  P<I)-Ind«x 

11793  GOTO  A 

11800  Prnt:  Pf-1 

11805  GOTO  Onu*rd 

11810  Too  B«ny:  BEEP 

11815  GOTO  A 

11820  Dnp:  PRINTER  IS  0 

11825  IF  Pap*r-Blaek  THEN  PRINT  PAGE 

11830  PRINTER  IS  16 

11835  DUMP  GRAPHICS 

11840  RETURN 

11845  P100:  K-100 

11850  P30IIF  K-0  THEN  K-30 

11835  P10:  IF  K-0  THEN  K-10 

11860  Plx:  IF  K-0  THEN  K-l 

11865  M100:  IF  K-0  THEN  K— 100 

11870  M30:  IF  K»0  THEN  K— 30 

11873  M10!  IF  K-0  THEN  K— 10 

11880  Ml!  IF  K-0  THEN  K--1 

11885  B:  CALL  Pointr<K,Q2,Pmin, Ind«x, X_arr ay < * ) , Y_array<*) ) 

11890  GOTO  A 

11895  Uipcout:  1-0 

11900  GOTO  A 

11905  Onward:  ! 

11910  D— 10 

11913  PRINTER  IS  0 

11920  IF  Pf-1  THEN  PRINT  LINO) 

11925  FOR  J-l  TO  I 

11930  ladr-PCJ) 

11935  Su«x-0 

11940  Sumy-0 

11945  FOR  K-Iadr-D  TO  Iadr*D 

11950  L-K 

11933  IF  L<1  THEN  L-l 

11960  IF  L>N  THEN  L-N 

11963    Su«x-X    arr*y<L)~2*SGN(X_array<L)) 

11970   Suiiy-Y~array<L>~2»SGN(Y~*rr*y<L>> 

11973  NEXT  K~ 

11980  X(J)-SQR<ABS(Su»x/'I)*SGN<Sumx)) 

11983  F<J)-SQRCRBS<Suny'I)»SGN<Su»y)) 

11990  IF  Pf-1  THEN  PRINT  J; TAB< 10) ; "X:  " ; X( J ) ; TAB< 30) ; " Y:  ";Y_array<J) 

11993  NEXT  J 

12000  IF  Pf-1  THEN  PRINT  LIN<4) 

12005  PRINTER  IS  16 

12010  IF  Pf-1  THEN  A 

12015  GOTO  By* 

12020  By*:  I 

12023  SUBEND 

12030  ! 

12033  ! 

12040  I 

12045  I 

12050  SUB  Region  i ntrttt (N, SHORT  X_array < *) , Y_array  C *  )  ) 
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J2055  OPTION  BASE  1 

12060  COM  Command*<*), Number  commands,  Mod**, Menu, A5420, Word* <*), Prefi x*< *  ) 

12065  COM  Editf*,Edit  1 ine, B5420, SHORT  Pdata<*) , Npr i nt , Sdata<*) , N$»we, Stat 

12070  COM  Fi le*,SHORT~State<*),Ry<*), Ix<* ) , Sz<*) , XI i ne , Tc , Tf , Ti , Np, SI  ope, PI ,  P2 

12073  COM  SHORT  X*t art , Xstep, Rye <*>, Ixc <*), Frc <•), Cp, Intercept , Frequency 

12060  COM  SHORT  PI i m, Pxo, Pxm, Pyo, Pym, PI oc , Xo, Xm, Yo, Ym, Ptc al e , Xm i n, Xmax, Ymi n, Ymax 

12083  COM  SHORT  Cur , Pol y , L»f , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4, D3, D6, D7, 

12090  COM  SHORT  Find  poi nts, Paper , Bl ue, Bl ack , Onn, Of f, Sk i p, Devi ce, Pager , Nopager 
12093  COM  SHORT  Tpscal e, Txmi n, Txmax, Tymi n, Tymax, Tnpt s, Tx< *), TyCO , Tf 1 g, X60, Every 
12100  COM  SHORT  Dpscale,Dx«in,Dxmax,Dymin,Dymax,Dnpts,Df lg, Plot*, Cut ,Nocut  ,  Time* 

C2e: 

12103  !  COM  SHORT  CPX, XTP< *) , CPC, CTPC*) 

12110  Zot-0 

12113  K-0 

12120  Index-1 

12123  Pmin-1 

12130  SCALE  Xmin.Xmax, Ymin, Ymax 

12133  OH  KEY  #13, 3  GOTO  Onward 

12140  ON  KEY  #0,15  GOTO  P100 

12143  ON  KEY  #1,5  GOTO  P30 

12150  ON  KEY  #2,5  GOTO  P10 

12133  ON  KEY  #3,5  GOTO  Plx 

12160  ON  KEY  #8,3  GOTO  M180 

12165  ON  KEY  »9,3  GOTO  M30 

12170  ON  KEY  #10,5  GOTO  M10 

12175  ON  KEY  #11,5  GOTO  Ml 

12180  ON  KEY  #3,5  GOTO  Pnt  1 

12185  ON  KEY  #13,5  GOTO  Pnt2 

12190  ON  KEY  #7,5  GOTO  Prnt 

12195  ON  KEY  #6,5  GOTO  Dmp 

12200  GOTO  B 

12205  fi:  P-0 

12210  Pf-0 

12215  IF  POI  THEN  A 

12220  Pntl:  BEEP 

12223  Pi-Index 

12230  PLOT  X  array (Index), Ymin,-2 

12233  PLOT  X~array< Index), Ymax, -1 

12240  PLOT  X~arr ay < Index), Y_array< Index) , -2 

12243  GOTO  A~ 

12250  Pnt2:  BEEP 

12255  P2-Index 

12260  GOTO  12230 

12265  P10O: 

12270  P30: 

12275  P18: 

12280  Plx: 

12285  M100: 

12290  M30:  IF  K"0  THEN  K  —  30 

12295  M10:  IF  K-0  THEN  K— 10 

12300  Ml:  IF  K"0  THEN  K—l 

12303  B:  CALL  Poi ntr<K, N, Pmi n, Index, X_array<») , Y_arrayC») ) 

12310  GOTO  A 

12313  Onward:  Zot»l 

12320  Dap:  PRINTER  IS  0 

12323  IF  Paper-Black  THEN  PRINT  PACE 

12330  PRINTER  IS  16 

12335  DUMP  GRAPHICS 

12340  IF  Zot-1  THEN  12350 

12345  GOTO  A 

12350  Prnt:  Pf-1 

12355  T-P2 

12360  IF  P2<P1  THEN  P2-P1 

12365  IF  P2-P1  THEN  Pl-T 


K- 

100 

IF 

K-0 

THEN 

K-30 

IF 

K-0 

THEN 

K-10 

IF 

K-0 

THEN 

K-l 

IF  K-0  THEN  K  — 

100 
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Main    Program  Listing — continued. 

12370  PRINTER  IS  0 

12373  PRINT  LIN<2> , TAB<5> ; "REGION:   PI  ■  ";Frc<Pl>;"  Hz,      P2  »  " ; Frc <P2> ; "  Hz 

,      DATA  POINTS  -  " ; P2-P1+1 ; LIN<6> 

12388  PRINTER  IS  16 

12385  IF  Zot-0  THEN  GOTO  A 

12390  Bye:  Pflg-2 

12393  Pstart-Pl 

12400  P»top-P2 

12403  GCLEAR 

12410  EXIT  GRAPHICS 

12415  SUBEND 

12420  I 

12425  I 

12430  ! 

12435  ! 

12440  SUB  Analysi»<Code,N, SHORT  X  array<*),Y  array<*>> 

12445  OPTION  BASE  1 

12450  COM  Command*<*>, Number  commands, Mod**, Menu, A5420, Uord*<*> , Prefi x*<*> 

12455  COM  Editf*,Edit  1 i ne, B5420, SHORT  Pdat *<*) , Npr i nt , Sdat a< * ) , Nssut, St  at 

12460  COM  Fi  1e*,SHORT~State<»>,Ry<#>, Ix<* ) , Sz(* ) , XH ne, Tc , Tf , T i , Np , SI  ope, PI , P2 

12465  COM  SHORT  Xst art , Xst ep, Rye <*> , Ixc <*> , Frc < ♦ > , Cp, I nt ercept , Frequenc y 

12470  COM  SHORT  Pli m, Pxo, Pxm, Pyo, Pym, PI oc , Xo, Xa, Yo, Ym, Pscal e , Xm i n, Xmax , Ymi n, Ymax 

, Paxi  s 

12475  COM  SHORT  Cur, Pol y , Lsf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4, D5, D6, D7 , 

08,09 

12488  COM  SHORT  Find  poi nts, Paper, Bl ue, Bl ack , Onn, Of f, Sk i p, Dewi c e, Pager, Nopager 

12485  COM  SHORT  Tpscal e, Txmi n, Txmax, Tymi n, Tymax, Tnpt s, Tx<») , Ty < * ) , Tf 1 g, X60, Every 

12490  COM  SHORT  Dpscal e, Dxmi n, Dxmax, Dymi n, Dymax, Dnpt s, Df 1 g, PI ot s , Cut , Noc ut , Ti me* 

[203 

12495  !  COM  SHORT  CPX, XTP<#> , CPC, CTP< *> 

12500  IF  Code-12  THEN  A 

12505  IF  Code-13  THEN  B 

12510  IF  Code-24  THEN  E 

12515  IF  Code»17  THEN  F 

12520  IF  Cod«-14  THEN  C 

12525  IF  Code-43  THEN  D 

12530  GOTO  Bye 

12535  A:  Louer»l    !   IMAGINARY  vs  REAL  ANALYSIS 

12340  IF  <Region-l>  OR  (Po1y-l>  THEN  Lower»Pstart 

12345  Upper"N 

12330  IF  CRegion-1)  OR  <Po1y»l>  THEN  Upper-Pstop 

12355  Mi«Y  array(l) 

12560  Mr-X~array(l> 

12563  F-Fre"(l> 

12370  FOR  J"Lower  TO  Upper 

12575  Mr-MIN<Mr,X  array<J)> 

12588  T-MINCMi,Y  array<J>> 

12585  IF  T>-Mi  THEN  Ad 

12590  F-Fre<J> 

12595  Mi-T 

12600  Ad:  NEXT  J 

12605  Sz(l)-Mi 

12610  Sz<2>-F  * 

12615  Sz<3>-Mr 

12620  Sz(4)-2»S:(I) 

12625  Sz(S>-U<2*PI*Sz(4)*Sz(2>> 

12630  GOTO  Bye 

12635  ! 

12640  B:  Sz<8)-S1ope    !   REAL  us  IMAGINARY*HZ  ANALYSIS 

12645  Sz<9)-Intercept 

12650  GOTO  Bye 

12655  < 

12660  C:  Sz<12>-Slope   !   REAL  vs  IMAGINARY/HZ  ANALYSIS 

12663  Sz(13>-Intercept 

12670  GOTO  Bye 

12673  ! 
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13003  PRINT  LIN<4) 

13010  PRINTER  IS  16 

13015  Bye: ! 

13020  SUSEND 

13023  ! 

13030  ! 

13035  SUB  Dummyal 

13040  SUBEND 

13843  ! 

13030  ! 

13060  SUB  Remoue< Code .SHORT  Dl ,  Frequency, Every , X68, Cp, Rye <*>, Ixc <♦>, Frc <*> > 

13063  OPTION  BASE  1 

13070  IF  D1O0  THEN  Bye 

13073  IF  Code"44  THEN  Stay 

13880  IF  Frequency-X68  THEN  St*y 

13083  GOTO  Bye 

13898  Stay:  ! 

13095  SHORT  B*d<38> , Chnl *<30> 

13108  SHORT  T«in,Te»p,B»d»*x 

13105  Freqeney  t*b1e:  DATA  21.774,10,   38,8,   117,7,   177,7,  238,5,   287.5,3 

13110  DATA  35873,   412.3,3,   473,3,   323,3,   387.5,3,   638,3,   712.5,3 

13113  DATA  773,3,   825,3,   887.5,3,   950,3,   -1,-1 

13128  FOR  J"l  TO  38 

13125  READ  B*d< J) , Chnl »< J) 

13138  IF  B*d<JX>-l  THEN  13155 

13135  B»d<J>"0 

13140  Chnls<J>-8 

13145  Np»ir»"J-l 

13158  GOTO  13175 

13155  NEXT  J 

13168  ! 

13165  !  ARRANGE  THE  BAD  FREQUENCIES  IN  ASCENDING  ORDER 

13178  ! 

13175  FOR  J-l  TO  NpAirs 

13188  T»in-B»d<J> 

13185  FOR  K-J  TO  N 

13198  Temp«l1IN<Tmin,B»dCK>> 

13195  IF  Temp>Ti»in  THEN  A 

13288  Tmin-Temp 

13285  I-K 

13218  A:  NEXT  K 

13215  IF  B»d<J>-T»in  THEN  13258 

13228  T-B*d<J> 

13225  B»d<J>-B«d<I> 

13238  8*d<I>-T 

13235  T-ChnU(J) 

13248  Chnls<J)-Chnls<I > 

13243  Chnls<I)-T 

13238  NEXT  J 

13255  ! 

13268  !  NOW  REMOVE  FREQUENCIES  FROM  INCOMING  DATA 

13265  ! 

13278  B-0 

13275  N-0 

13280  K-l 

13285  FOR  J-l  TO  Cp 

13298  Ij-Jfl 

13295  N-N-t-1 

13388  IF  K>Np»irs  THEN  B 

13385  IF  N>Cp  THEN  Out 

13318    IF    Fre<NXB»dCK>    THEN    B 

13315  N"N*Chnls<K> 

13328  IF  N>Cp  THEN  Out 

13325  Ryc<J>-Ryc<N> 

13338  Ixc<J>-IxcCN> 
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13333  Frc(J>-Fre<N> 

13348  K"K*1 

13345  GOTO  Nextl 

13358  B:  ! 

1333S  IF  N>Cp  THEN  Out 

13360  Ryc(J)"Rye<N> 

13365  Ixc(J>"Ixc<N> 

13379  Fre<J>-Frc<N> 

13375  Nextl:  IF  N-Cp  THEN  Out 

13388  NEXT  J 

13385  Out:  FOR  J-Ij  TO  Cp 

13398  Frc<J>-Ryc(J)"Ixc<J>»0 

13395  NEXT  J 

13488  Cp-Ij-1 

13485  Dl-1 

13418  Bye: ! 

13415  SUBEND 

13429  !  SUBROUTINE  TO  CREATE  COMMAND  FILES 

13425  !  CALL:      CALL  COMMAND_FILE 

13438  ! 

13435  ! 
13448  ! 

13445  SUB  Command  file 

13438  OPTION  BflSE~l 

13455  COM  Command***), Number  commands, Mode*, Menu, A5420, Uord***) , Prefi **•:* > 

13436  COM  Editf*,Edit  1 i ne, B5420, SHORT  Pdat a<*) , Npr i nt , Sdat a< * > , Nsa-e , St  at 

13437  COM  File*,SH0RT-StateC*),Ry<*),Ix<*),Sz<*),X1ine,Tc,Tf,Ti,Np,Slop.=,Pl,P2 

13438  COM  SHORT  Xst art , Xst «p, Pyc < ♦ > , I xc < * > , Fre <*) , Cp, Intere ept , Frequenc y 

13439  COM  SHORT  PI i m, Pxo, Px», Pyo, Pym, PI oc , Xo, Xm, Yo, Ym, Pscal e , Xmi n, Xiuax , Ymi n, Ymax 

13460  COM  SHORT  Cur , Pol y , L»f , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4, D5, D6, D7, 
"8.D9 

13461  COM  SHORT  Find  poi nts, Paper , Bl u« , B1 ack , Onn, Of f, Sk i p, Devi c e, Pager, Nopager 

13462  COM  SHORT  Tpsc al e, Txmi n, Txmax, Tymi n, Tymax, Tnpt s, Tx< *), Ty(* ), Tf 1 g, X68, Every 

13463  COM  SHORT  Dpsc al e, Dxmi n, Dxmax, Dymi n, Dymax, Dnpt s, Df 1 g, PI ot s , Cut , Nocut , T l me* 
[20] 

13464  !  COM  SHORT  CPX, XTP<*) , CPC, CTP<*) 
13485  ON  ERROR  GOTO  Trouble 

13498  CRLL  Clear 

13495  CALL  PutlineO,  26,  "COMMAND  FILE  MENU") 

13308  ttenu«c 

13505  CALL  Putline<2,5,"D0  YOU  WISH  TO  SAVE,  RECALL  OR  APPEND  COMMAND  FILE  <S,  R 

,  A)  *"> 

13518  LINPUT  Ans* 

13515  IF  Ans*«"S"  THEN  Saue_file 

13528  IF  Ans*«"R"  THEN  Recall_file 

13525  IF  Ans*-"A"  THEN  Append~file 

13538  IF  Ans*-"0"  THEN  13955 

13533  BEEP 

13340  GOTO  13498 

13545  ! 

13558  !  SAVE  A  COMMAND  STACK 

13553  ! 

13368  !  CREATE  COMMAND  FILE 

13565  Save  f i le:  ! 

13578  CALL~Putl ine<4,5, "WHAT  IS  THE  FILE  TO  BE  NAMED  ?") 

13575  INPUT  Nutt 

13588  !  IF  NO  •:"  IN  NAME*,  APPEND  ":F9" 

13585  P-P0S<Na«e*. "!") 

13598  IF  P-8  THEN  Name*-Na»e*fc" :  F9" 

13595  F-l 

13680  CALL  LUNumber  command*,  Command***) , Pref i x*<*) , Uord*< *), Bytes, Recs > 

13605  PRINT  -NUMBER  OF  BYTES:  »; Bytes, "NUMBER  OF  RECORDS:  ";Recs 

13610  CREATE  Naae*,Rec* 

13615  ASSIGN  *9  TO  Name* 

13620  PRINT  »9;Number_com»ands 
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13625  FOR  J»l  TO  Numb*r_co»m*nds 

13630  PRINT  t9;Comm*nd*7j>, Word*< J),Pr«f ix*<J> 


188 
Diskette  Subroutine  Listing 

As  mentioned  earlier,  the  activation  of  certain  function  keys 
caused  a  subroutine  to  be  read  in  from  the  diskette  and  executed. 
Table  D-2  lists  the  subroutine  associated  with  each  of  those  keys. 
The  unlisted  keys  activate  subroutines  in  the  main  program.  Following 
the  table  is  a  listing  of  each  of  the  individual  subroutines. 
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TABLE  D-2  KEY  ACTIVATED  DISKETTE  SUBROUTINES 

KEY  #  SUBROUTINE 

0  Setup  jgroup 

1  Cursor  group 

2  Display  group 

3  Control  group 

4  Special  group 

6  Command  file 

7  Dfile 

8  Dmanip 

11  Mul  file 

12  Cam  group 
14  Plot  group 
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Subroutine  "Setup        group" 


SUB  Setup  group 

SUBROUTINE  TO  DISPLAY  SETUP  GROUP  MENU 

CALL:      CALL  Setup_group 


ie 

20 

38 

48 

38    SUB  Setup  group 

68    OPTION  BASE  1 

78   COM  Command***),  Number  comitndt,  Mode*,  Menu,  03428,  Word*<*>  ,  Pref  i  x*'.*> 

88   COM  Editf*,Edit  1 ine, B5428, SHORT  Pdata<*> , Npr i nt , Sdat a<*> , Nsave, St  at 

98   COM  Fi le*,SHORT-State<»>,Ry<»>, Ix(*> , Sz<*> , Xli ne, Tc , Tf , Ti ,Np, SI  opt, PI , P2 

188  COM  SHORT  X*t art , Xstep, Rye <•>, Ixc (*>, Frc (•>, Cp, Intercept , Frequency 

118  COM  SHORT  Pli  a,  Pxo,  Pxm,  Pyo,  Pym,  PI  oc  ,  Xo,  Xro,  Yo,  Yn,  Psc  al  e,  Xai  n,  Xmax,  Ymm,  Ymax  ,  P 

ax  i  s 

128  COM  SHORT  Cur, Poly, Lsf.Sflg, Region, Pfl g.Pstart ,Pstop,Dl , D2,D3,D4,D5,D6,Dr ,D8 

,D9 

138  COM  SHORT  Find_points, Paper, Blue, Black, Onn, Off .Skip, Device, Pager, Nopager 

148  COM  SHORT  Tpsc al e, Txmi n, Txmax, Tymi n, Tymax, Tnpt s , TxC *> , Ty < *> , Tf 1 g, X60, Every 

158  COM  SHORT  Dpscal e, Dxmi n, Dxaax, Dymi n, Dymax, Dnpt s , Df 1 g, P 1 ot s, Cut , Noc ut , T i me*C 2 

8] 

168     !     COM    SHORT    CPX, XTP<«> , CPC, CTP<«> 

170      DIM   Setup    coai»and«<18>,Set*<8>,Reset*<8>,Engl  ish*(lS> 

188 

190 

288 

218   DATA  "  TI","  FR","  AV"," 

228   DATA  "  RG","  R-C","  DE"," 

238   DATA  "  CF","  BU","  TL"," 

248   MAT  READ  Set up_coaaand* 


THESE  FIRE  THE  HPIB  BUS  COMMAND  CODES 


SC", 

"    TC", 

"    CH" 

CA", 

"    DN", 

"    UP" 

SO", 

"    VU", 

"    RO" 

THESE  ARE  THE  SET*  «.  RESET  ARRAYS 

UHAT  IS  IN  SET*  IS  CHANCED  TO  WHAT  IS  IN  RESET* 


230 
260 
270 
280 

290  DATA  "KHZ", "VOLT", "MSEC", "DB", "MHZ", "USEC", "SEC", "HZ" 

380  DATA   "KV  ","KV   ","HD   ","HD","MU  ","MU   ","KV  ","HD" 

310  MAT  READ  Set* 

320  MAT  READ  Reset* 

330  ! 

340  DATA  "TIME", "FREQ" , " AVG" , "SCNL" , "TRIG", "CHAN  »"  ,  "RANGE"  ,  " AC  ,  DC"  ,  "DELfi'r 

330  DATA  "CAL", "DN-ARROU", "UP-ARROU", "CENT  FREQ" , "BU" , "T" , "STORE" , "VI EW" 

360  DATA  "RESTORE" 

370  !  FULL  WORD  OF  CHOICE 

388  MAT  READ  Engl i sh* 

398  ! 

400  (  PUT  MENU  ON  SCREEN 

418  !  READ  FULL  WORDS 

428  ! 

438  CALL  Clear 

448  IF  EditflO"  "  THEN  CALL  Put  1  i  ne<8,  8,  CHR*C  131  >&  "EDIT  MODE  "S.CHR*<  128)  > 

458  CALL  Putl ine<0, 26, "SETUP  GROUP  MEKfU") 

460  CALL  Croup  menu<2, 7, 3, 18, 28, 18, Engl i sh*< ♦ > > 

478  CALL  Putl ine<9, 8, "INPUT  YOUR  CHOICE  *") 

488  Nenu"3 
498 
.388 
518 

520  INPUT  Setup  choice 

530  IF  Setup_ehoice-0  THEN  940   !  IF-0  THEN  EXIT 

340  IF  Setup~choice<8  THEN  Setup_err 

350  IF  Setup~choice>18  THEN  Setup_err 

568  GOTO  618~ 

578  Setup  9rr:     ! 

588  BEEP- 

590  PRINT  "IMPROPER  CHOICE  —  TRY  AGAIN" 

688  GOTO  478 

610  CALL  Get  p<Par««,L> 

628    IF  <Editf*-"ADD">  OR  <Edi tf *-"REP" >  THEN  L-Edit_1ine 

638  IF  Editf*-"ADD"  THEN  CALL  Shifty(l) 


GET  INPUT  CHOICE  NUMBER 
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Subroutine  "Setup group"  continued. 


646 
£58 

663 
670 
689 
696 
709 
719 
729 
730 
749 
739 
769 
770 
788 
790 
808 
818 
820 
830 
840 
850 
863 
870 
889 
890 
908 
910 
928 
938 
948 


CHECK  PARAMETER  STRING  FOR  ANY  STRING  IN  SET* 
AND  CHANGE  IT  TO  WHAT  IS  IN  RESET* 

Pr»f  ix*(L)"P»ri»* 

FOR  J"l  TO  8 

P-POS<P*rm*,S«t*<J>> 

IF  P-0  THEN  770 

Q«LEN<S«t*<J>)-l 

I  PRINT  P,Q 

P»r»*CP,P*Q>R«*«t*<J> 

GOTO  718 

NEXT  J 

CONCATENATE  STRINGS  AND  PUT  ■{"  ON  END 

Co*m*nd*<L>"P»rm*&Setup_comm*nd*<S*tup_<:hoic»>l' 
Uord*<L)»Engl i sh*<Setup~choi c«> 

BLANK  OUT  OLD  LINES  ON  SCREEN 

CALL  C1»»p_1  int<U,8) 

PRINT  Co»«*nd*<L>; " 

IF  Mod«*»"IMM"  THEN  CALL  Send 

IF  Editf*«"REP"  THEN  948 

!  GO  GET  MORE  COMMANDS  OF  THIS  GROUP 

GOTO  478 
SUBEND 
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Subroutine  "Cursor        group" 


10  !  SUBROUTINE  TO  DISPLAY  CURSOR  CROUP  MENU 

28  ! 

39  !  CALL:      CALL  CURSOR  CROUP 

40  ! 

50  SUB  Cursor_group 

60  OPTION  BASE  1 

70  COM  Command* <*>,Number_commands, Mode*, Menu,  A5420, Uord*<  ♦  > ,  Prefix*' *) 

60  COM  Editf*,Edit  1 i nt, B5420, SHORT  Pdata<»> , Npr i nt , Sdat a<»> , Nsave, St  at 

90  COM  Fi le*,SHORT~State(*>,Ry<»>, Ix<#> , Sz<*> , XI i ne, Tc , Tf , T i , Np, S 1 ope , P 1 , P2 

100  COM  SHORT  Xstart , Xstep, Rye <»>, Ixc<*> ,Frc <*>, Cp, Intercept , Frequency 

118  COM  SHORT  PI i»,Pxo,Px*,Pyo,Pym,P1oc,Xo, Xm, Yo, Y», Pscal e, Xmi n, Xraax, Ymin,  Ymax, 

Pax  i  s 

120  COM  SHORT  Cur.Poly.Lsf ,Sf1g, Region, Pflg.Pstart, Pstop.Dl ,D2, D3,D4, D5,D6,D~,  D 

6,09 

138  COM  SHORT  Fi nd_poi nts, Paper , Bl ue , B1 ack , Onn, Of f , Sk lp, Device, Pager, Hopager 

140  COM  SHORT  Tpscale.Txmin.Txmax, Tymi n, Tymax, Tnpt s, Tx<#> , Ty <*> , Tf 1 g, XS9,  Every 

150  COM  SHORT  Dpscal e, Dxmi n, Dxmax, Dymi n, Dymax, Dnpts, Df 1 g, PI ots, Cut , Nocut  ,  Ti me*C 

20] 

168  !  COM  SHORT  CPX, XTPC* ) , CPC, CTP<»> 

170  CALL  Clear 

168  Menu-1 

198  IF  Editf*<>"  "  THEN  CALL  Put  1  i  ne<0,  0,  CHR*(  1  31  >8."ED  I  T  M0DE,#&CHP*<  12S  > ) 

200  CALL  Put  1 ine<2, 13, "CURSOR  CANNOT  BE  CONTROLLED  BY  THE  COMPUTER") 

210  CALL  Putl ine(4, 19, "USE  5420  FRONT  PANEL  CONTROLS'") 

220  WAIT  3000 

230  SUBEND 
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Subroutiiie  "Display  __  group" 


1110 

1115 
1120 


SUBROUTINE  FOR  DISPLAY  GROUP 

CFILL:      CALL  DISPLAY_GROUP 
1125  SUB  Display  group 
1130  OPTION  BASE~1 

1135  COM  Co»»and*(*>, Number  coinands, Mod**, Menu, A5420, UordSC *), Prefi xt<*> 

1136  COM  Editf*,Edit  1 i ne, B5420, SHORT  Pdat  a<*> ,  Npr  i  nt ,  Sdat  aO>  ,  Nsave,  St  at 

1137  COM  Fi l**,SHORT~State<*>,Ry<»>, Ix< * > , Sr<#> , XI i ne,  Tc  ,  Tf , Ti  ,  Np,  SI  ope  ,  PI ,  P2 

1138  COM  SHORT  Xstart , Xstep, Rye <*), Ixc <»), Frc CO, Cp, Intercept , Frequency 

1139  COM  SHORT  PI i m,  Pxo, Px», Pyo, Pym, PI oc ,Xo, Xm, Yo, Yin, Psc al e,X»i n, Xmax, Ymi n, Ymax, 
Paxi  s 

1140  COM  SHORT  Cur ,  Pol y ,  Lsf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4, D5 , DS, D", D 
8,09 

1141  COM  SHORT  Find_points, Paper, Blue, Bl ack.Onn, Off ,Sk ip, Device, Pager, Nopager 

1142  COM  SHORT  Tpscal e, Txmi n, Txi»ax, Tymi n, Tymax, Tnpts, Tx<»> , Ty< *>, Tf 1 g, X60, Every 

1143  COM  SHORT  Dpscal  *,  Dxmi n,  Dxaax, Dymi n, Dymax, Dnpt s, Df 1 g, P 1 ot s , Cut , Nocut , T i meSC 
20] 

1144  !  COM  SHORT  CPX, XTP<»> , CPC, CTP< * > 
1165  DIM  Display  command»<30> , Engl i sh«<30> 
1170  DATA  "  MG" 


,"     PH", 

"    LM","    LX", 

"    RE", 

"    IM", 

"    IR", 

"    LP 

,"    FM", 

•    UT","    EX", 

"    AD", 

"    SB", 

•    MY", 

"    DV 

,"    PK", 

"    JU","    PU", 

"    PR", 

"    PL", 

"    RA", 

"    SA 

1175  DATA  "  TC 

1180  DATA  "  HM 

1185  ! 

1190  !  HPIB  COMMANDS  FOR  5420 

1195  ! 

1200  DATA  "  TN","  CO","  AU","  CR","  HI","  LI" 

1205  MAT  READ  Display  commands 

1210  DATA  "MAG", "PHASE", "LOG  MAG","X,  LOG  X" , "REAL" , " IMAG" , " I M/ RE" , "LG  MG-- <  " 

1215  DATA  "TRACE", "FORMAT", "UEIGHT", "EXPAND", »  +  ","-","*", "•" , "HMNC", "PEAK", " JU" 

1220  DATA  "POUER",  "PRINT"  ,  "PLOT" , "RECALL", "SAVE", "TRANS", "COHER", "AUTO", "CROSS'1 

1225  ! 

1230  !  FULL  UORD  DESCRIPTIONS 

1235  ! 

1240  DATA  "HIST", "LINEAR" 

1245  MAT  READ  Engl i  sh* 

1250  CALL  Clear 

1255  IF  Editf$<>"  "  THEN  CALL  Put  1 i ne<0, 8, CHR*< 1 31 ) l"EDIT  MODE H8,CHP*< 128 > > 

1260  CALL  Putl ine<0, 29, "DISPLAY  GROUP  MENU") 

1265  CALL  Group_menu<2,7,5,2, 15, 30, Engl f»h»<*>> 

1270  CALL  Put  1 ine<9,0, "INPUT  YOUR  CHOICE  »") 

1275  M*nu-2 

1280  INPUT  Displ ay_choiee 

1285  IF  Display _choice»0  THEN  1425 

1290  IF  Display~choice<l  THEN  Display  trr 

1295  ! 

1300  !  GET  USER  CHOICE 

1305  ! 

1310  IF  Display  choice>30  THEN  Display_err 

1315  !  GET  PARAMETER  INPUT 

1320  ! 

1325  GOTO  1350 

1338  Display  9rr:     ! 

1335  BEEP 

1340  PRINT  "IMPROPER  CHOICE  —  TRY  AGAIN" 

1345  GOTO  1270 

1350  CALL  G*t_p<Par«*,L> 

1355  Build  command:  ! 

1360   IF  <Editf*-"ADD">  OR  (Edi t f *-"REP" >  THEN  L«Edit_line 

1365   IF  EditfS-"ADD"  THEN  CALL  Shifty(l) 

1370  Prefi x»<L>-Parm* 

1375  ! 

1380  !  REMOVE  QUOTE  MARKS 

1385  ! 

1390   UordSCD-Engl  i  shS<Di  spl  ay_choi  ce> 

1395    Co««and*<L>»ParB*tDisplay~co»«i*nd*<Display_choice>t,";  " 

1480    CALL    Clear    line<U,8> 
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Subroutine  "Display        group"  continued 


1483  PRINT  Comm*nd*(L>; " 

1410  IF  Mode**"IMM"  THEN  CALL  Send 

1415  IF  EditfS-"REP"  THEN  1423 

1422  GOTO  1270 

1423  SUBEND 


195 


Subroutine  "Control    .  .  group" 

1460  !  SUBROUTINE  FOR  CONTROL  CROUP 

1463  !  CALL:      CALL  CONTROL  CROUP 

1470  ! 

1473  ! 

1480  SUB  Control  group 

1483  OPTION  BASE~1 

1490"  COM  Command* <*>,Number_commands, Mode*  .Menu,  f!5420,  Word*  <*>,Pref  i  xSO) 

1491  COM  Editf*,Edit  1 i ne, B5420, SHORT  Pdat a> *> , Npr i nt , Sdata<«> ,  Nsave,  Stat 

1492  COM  Fi 1e*,SH0RT~State<#>,Ry<*>, Ix<») , Sz<*> , XI 1 ne, Tc , Tf , Ti , Np,  SI  ope,  PI ,  P2 

1493  COM  SHORT  X*t art , X*t ep, Rye <*>, Ixc <*>, Frc <»>, Cp, Intercept , Frequency 

1494  COM  SHORT  PI i  id, Pxo, Pxm, Pyo, Pym, PI oc , Xo, Xm, Yo, Ym, Psc al e, Xmi n, Xmax , Ymi n, Ymax, 
Paxi  ft 

1493  COM  SHORT  Cur , Pol y , Lftf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pstop, Dl , D2, D3, D4 , D3, Do, D7, D 
8*09 

1496  COM  SHORT  F i nd_poi nt i, Paper , Bl ue, Bl ack , Onn, Of f , Sk i p,  Devi c e,  Pager ,  Nopager 

1497  COM  SHORT  Tpsc al e, Txmi n, Txmax, Tymi n, Tymax, Tnpt $, Tx< *), Ty< * > , Tf 1 g, X60, Every 

1498  COM  SHORT  Dpscal e,  Dxmi  n,  Dxmax,  Dyisi  n,  Dymax, Dnpts, Df lg, PI ots, Cut , Nocut ,  Ti me*C 
20] 

1499  !  COM  SHORT  CPX, XTPC*> , CPC, CTP<») 

1329  DIM  Control  command*<6>  ,  Engl  i *h*<6> 
1323  !  HPIB  COMMANDS  FOR  CONTROL  FUNCTIONS 

1330  DflTfl  "  ST","  PA","  VI","  MR","  RS","  SL" 
1533  MAT  READ  Control  command* 

1340  DATA  "START", "PAUSE/CONT", "VIEW  INPUT", "MAX  RATE" , "RESET" , "SELF  TEST" 

1343  MAT  READ  English* 

1550  CALL  Clear 

1555  IF  Editf*<>"  "  THEN  CALL  Put  1  i  ne<0,  0,  CHR*<  1  31  >  8."ED1T  M0DE"&CHR*( 1 28; ) 

1560  CALL  Putl ine<0, 26, "CONTROL  CROUP  MENU") 

1363  CALL  Group_menu<2,3,3, 10,20,6,Engl ish*<*>) 

1570  Menu-3 

1575  Query:  ! 

1580  CALL  Putl ine<6,0, "INPUT  YOUR  CHOICE  »"> 

1583  !  GET  CONTROL  CHOICE 

1590  INPUT  Control_ehoiee 

1595  IF  Control  choice»0  THEN  Bye 

1600  IF  Control3choice< 1  THEN  Control_err 

1605  IF  Control~choice>6  THEN  Control~err 

1610  GOTO  Inc 

1613  Control  trr:     ! 

1620  BEEP 

1623  PRINT  "IMPROPER  CHOICE  —  TRY  AGAIN" 

1630  GOTO  1590 

1635  !  ASSEMBLE  COMMAND 

1640  Inc:  ! 

1645  CALL  Get  p<Par»*,L> 

1650  Bui  Id:  I 

1633   IF  (Editf*""ADD">  OR  <Edi t f *»"REP"  >  THEN  L»Edit_line 

1660   IF  Editf*="ADD"  THEN  CALL  Shifty(l) 

1663  Pref ix«<L)-Parm* 

1670  Command*<L>"Parm*lControl_command*i:Contro1_choice)S.";  " 

1675  Mord*<L>-Engl i sh*<Control~choi ce ) 

1680  !  CLEAR  SCREEN  LINES 

1685  CALL  Clear  line<8,8> 

1690  PRINT  CommandS(L); "  " 

1693  IF  Mode*""IMM"  THEN  CALL  Send 

1700  IF  Editf*»"REP"  THEN  Bye 

1785  GOTO  Query 

1710  Bye:  ! 

1713  SUBEND 
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Subroutine  "Special        group" 


SUBROUTINE  FOR  SPECIAL  CROUP 
CALL:      CALL  SPECIAL  CROUP 


COM  SHORT  Cur,Poly,Lsf,Sflg,Region,Pflg,Pst*rt,Pstop,Dl,D2,D3,D4,D5,D6,D7,D 


ie 
20 

se 

40 

se 

60  SUB  Specia1_group 

89  COM  *  Corned*  <»>,Nu«ber_comn.ands,  Mod.*,  Menu, A5420, Uord*< • ) , Pref  ix*<*) 

90  COM  Editf*,Edit  1ine,B3420, SHORT  Pdat  a<*) ,  Npr  1  nt ,  Sdata<  •) ,  Nsave ,  St  at 

160  COM  "u«,SH0RT-Sft;<O,Ry<O,Ix<#>,S2<.>,Xlin,,Te,Tf>T,  Np, SI  ope, PI , P2 

110  COM  SHORT  Xstart.X.tep.RycO.IxcO.FrcO.Cp, Intercept, Frequency 

120  COM  SHORT  PI i m, Pxo, Pxm, Pyo, Pym, PI oe , Xo, X», Yo, Y>, Pscal e, Nal n, X*ax, Y.i n,  Y«*x, 

Paxi  * 

130 

Me"  COM  SHORT  Find.point., Paper, Blue, Black, Onn  Off, Skip  D..,ce .Pager, Nopag.r 

130  COM  SHORT  Tpsell  e,  Tx»i  n,  Txmax,  Tymi  n,  Tymax,  Tnpt  s,  Tx<  ♦  ) ,  Ty  (O  ,  Tf  1  g,  >.6@  ,  E-ery 

160  COM  iHORT  Dpscal.,Dx.in,Dx»ax,Dy.Hn,Dymax,Dnpt.,Dflg, Plots, Cut .Nocut , T, ».*[ 

20: 

170  '  COM  SHORT  CPX,XTP<»),CPC,CTP<*) 

180  DIM  Special  comnand*(8> , Engl i sh*<9> , A*C51 3 

190  !  HPIB  COMMANDS  FOR  SPECIAL  COMMANDS 

200  DATA  »  TX-,"  OR-,"  LL","  GL»,»  DI",«  EN","  D.wic.  Clear","  S*r,al  Poll 

210  MAT  READ  Special  co»»*nd$ 

220  DATA  "URITE  TEXTT, "•  AVERAGES" , "LOC  LOCKOUT ", "COTO  LOCAL" 

230  DATA  "DISABLE  SRQ", "ENABLE  SRQ", "DEVICE  CLR", "SERIAL  POLL" , "COMMENT" 

240  MAT  READ  Engl i sh* 

230  !  PUT  MENU  ON  CRT 

270  5pLEdilf«<>"  "  THEN  CALL  Put  1 i n.< 0, 0, CHR*< 131 ^"EDIT  MODE" S.CHR*<  123 > ) 

280  CALL  Putline<0,30, "SPECIAL  CROUP  MENU") 

290  CALL  Group_wenu<2,4,3,3,25,9,Engli*h*<«>) 

300  Menu»4 

310  Query:   ! 

320  CALL  Putline(8,0, "INPUT  YOUR  CHOICE  •") 

330  !  INPUT  MENU  CHOICE 

340  INPUT  Sp»cial_ehoice 

330  IF  Special  choice-0  THEN  Bye 

360  IF  Speeial~choiee<0  THEN  Specia!_err 

370  IF  Speeial~choice>9  THEN  Special_err 

380  IF  Special  choice-9  THEN  Build 

390  IF  Special_choiee<>10  THEN  Inc 

400  ! 

410  Special  err:   ! 

420  BEEP 

430  PRINT  "IMPROPER  CHOICE  —  TRY  AGAIN" 

440  GOTO  Query 

430  !  BUILD  COMMANDS 

460  Inc:   ! 

470  CALL  Get  p<Parw*,L> 

480  IF  Special  choiceOl  THEN  Build 

490  PRINT  "INPUT  TEXT  STRING  <NO  COMMAS  ALLOWED)  OR  ELSE  / 

300  LINPUT  Suffix* 

310  P-POSCSuff ixt, "'"> 

320  IF  PO0  THEN  Suffix*-"  " 

330  !  BUILD  COMMAND  STRING 

540  Bui  Id:! 

350  IF  <Editf*-"REP">  OR  <Edi tf *-"ADD" >  THEN  L-Edit_line 

360  IF  Editf*""ADD"  THEN  CALL  Shifty(l) 

370  IF  Special_choiee<>9  THEN  800 

580  Nu»Der_eo«i»and»»Nu»ber_eo»«ands+l 

381  L'Number  command* 

590  IF  Editf*»"REP"  THEN  L»Edit_line 

591  IF  Editf*-"ADD"  THEN  L"Edi t_1 ine-1 

392  A*-" 

393  PRINT  A* 
600    LINPUT  AS 
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Subroutine  "Special        group"  continued 


610  A**TRIM*<A*> 

620  Ln-LEN(H*> 

630  Uord*<L>«"  " 

640  Pr»fix*<L>""  " 

650  CommandfCL)-"  " 

660  Q-15 

670  IF  Ln<15  THEN  Q»Ln 

660  Coii»»ndH:L)«"//  "fcfl*Cl,Q3 

690  Q-16 

700  2-33 

710  IF  Ln<16  THEN  Out 

720  IF  Ln<2  THEN  Z-Ln 

730  Pr«f ix*(L)»A*CQ,23 

740  IF  Ln<34  THEN  Out 

730  Q-34 

760  2-31 

770  IF  Ln<2  THEN  2-Ln 

780  Uord*(L)»A*CQ,Z: 

790  Out:    GOTO  900 

600  Command*  <L>"Parm*«.Sp«e1  a1_command*<Sp«c  i  al_choi  c*)*.* 

610  IF  Special  choictOl  THEN  GOTO  870 

820  P-POS < Command* C L >, M;  "> 

630  X*"Command*(L> 

840  X*CP>"  " 

630  X*»X*lSuff ix*l"; " 

860  Command* <L)»X* 

870  Uord*<L)»Engl i *h*< Sp«c i al_choi c« > 

880  Pr»f ix*<L>»Parm* 

690  !  CLEAR  SCREEN  LINES 

900  CALL  C1»ar_l in«<8, 11) 

910  PRINT  Command*<L); " 

920  IF  Mod**«"  IMPI"  THEN  CALL  S»nd 

930  IF  Editf*-"REP"  THEN  By« 

940  GOTO  Query 

930  Bye:   ! 

960  SUBEND 
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Subroutine  "Cotmand        file" 


SUBROUTINE  TO  CREATE  COMMAND  FILES 
CALL:      CALL  COMMAND_FILE 


2605 
2610 
2615 
2620 
2625 
2630  SUB  Comm»nd_f i It 

264?    2^I?o.-and»<O,Nu.b.r_co.>..nd,,ModeS>M.nU,fl5420,WordS<:; ^m^^CI^S*!* 

2641  COM    6dHf«,Edit    1  in., B5420, SHORT    Pd*t  »<•> ,  Npr,  nt ,  Sdat  *<•    ,  **•»*  ,  vU 

2642  COM   Fil.»,SHORT  St»tt<*),Ry<*),Ix<.>.Sz<*>,XHn.,Te,Tf,T1,Np,Slopt,PJ,P2 

2643  COM    SHORT    X*tTt,X.t.p,Ryc<0, Ixc<0,Frc<0, Cp.Int.rc.pt, Fr.qu.n^y 

2644  COM  SHORT  Plim,Pxo,Pxm,Pyo,Pym,Ploc,Xo,Xm,Yo,Ym,Psc»l.,Xm,n,Xm*x,,»nn,Ym.LX, 

2645*C0n  SHORT  Cur ,  Pol  y ,  L.f ,  Sf  1  g, R.gi on, Pf 1 g, Pstart , Pstop, Dl , D2, D3, 04, D3, DC, 87, D 
26^6  COn  SHORT  Fi nd.po, nt s, Pap.r , Bl u., Bl »ck , Onn, Of f , Sk > p  D.., c ., Pag.r , Nop4|.r 
264?  COn  SHORT  TpscIl.,Txmin,Txm»x,Tymin,Ty»»x,Tnpts,Tx<»>,Ty<»;,Tflg,,. 60, Ey«ry 

2648  cS"  SHORT  ipllV\  t!hi<  n|  Ix.«!  Sy.4  n,  »y.*x,Dnpt»,Df  1  g.Plof,  Cut ,  Nocut ,  T1  »*t 
203 

2649  !  COn  SHORT  CPX, XTP<*> , CPC, CTP<*> 
2670   ON  ERROR  GOTO  Troubl. 

2675  CALL  Cl.»r 

2680  CALL  Putlin«<8, 26, "COMMAND  FILE  MENU") 

2690  CflC""putHn.<2,5,-D0  YOU  WISH  TO  SAVE,  RECALL  OR  APPEND  COMMAND  FILE  (S,  R, 

A)  •  "> 
2695  LINPUT  An»* 

2700  IF  Ans*»"S"  THEN  S«w._fi1. 
2705  IF  Ans*»"R"  THEN  R«»U.fHt 
2710   IF  Ans*""A"  THEN  App.nd_fil. 
2715   IF  An**«"0"  THEN  3140 
2720  BEEP 
2725  GOTO  2675 
2730  ! 

SAVE  A  COnnAND  STACK 


2735 
2740 
2745 


CREATE  COMMAND  FILE 


2755  CALL"PutUn.<4,5,"UHAT  IS  THE  FILE  TO  BE  NAnED  ?"> 

2760  INPUT  Nam.* 

2765  !  IF  NO  ":"  IN  NAME*,  APPEND  ":F9" 

2770  P«POSCN*m»*, "! "> 

2775  IF  P«0  THEN  N*m.*»N»m.*i" : F9" 

llll      CALL  LKNumb.r  commands, Comm*nd*<0 , Pr.fi x«< O , Uord*<.>, Byt .s , Recs > 

2790   PRINT  "NUMBER  OF  BYTES:  " ; Byt.s, "NUHBER  OF  RECORDS:  "jR.cs 

2795   CREATE  N*m.*,R.c» 

2800  ASSIGN  »9  TO  Nam.* 

2805  PRINT  *9;Numb.r_comm*nd* 

2810   FOR  J«l  TO  Numb.r  command* 

2815   PRINT  #9;Comm*nd*~J>,Word*<J>,Pr.fix«<J> 

2820   NEXT  J 

2825  ASSIGN  •  TO  «9 

2830  n.nu*6 

2835   CALL  CI »ar_l i n.( 12, 1 > 

2840  GOTO  3140 

2845  ! 

2850  !  RECALL  AN  OLD  COMMAND  FILE 

2855  ! 

2860  R.c»1 1  f i 1.:  I 

2865  CALL  Put li n«<4, 3, "UHAT  IS  THE  FILENAME  ?"> 

2878  LINPUT  Nam.* 

2875   IF  POS<Nam.*,":">«0  THEN  Nam.*-Nam.*t  :F9 

2880  Fi 1 .*»N»m.» 

2883   F-2 

2890  ASSIGN  #8  TO  Nam.* 

2895  READ  #8; Numb.r_eo»mands 
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Subroutine  "Comiand        file"  continued 


2980  !  MAT  READ  #8; Co»»*nd* , Word*, Pref i xt 

2905   FOR  J»l  TO  Number_comm»nds 

2910   READ  t8;Comm»nd*<J),lJord*<J),Pref ix$(J) 

2915   NEXT  J 

2920  ASSIGN  *  TO  »8 

2925   CALL  CI e*r_1 i ne< 12, 1 ) 

2930  Menu«6 

2935  GOTO  3140 

2940  ! 

2945  I  APPEND  A  FILE 

2950  Append  f i It:  ! 

2955   F-3 

2960  CALL  Putline<4,5,"UHAT  IS  THE  FILE  NAME  ?") 

2965  INPUT  N»»e* 

2970   IF  POS<Nam««, ": ">"0  THEN  N*me**N*meS&" : F9" 

2975  ASSIGN  »7  TO  N»«e« 

2960   BUFFER  »7 

2985  READ  H7; Number 

2990   FOR  J"l  TO  Number 

2995   I"Number_comm»nds*J 

3000   READ  t7;Co»im»ndS<I),Word*(I),Pr«f ix*(I) 

3005  NEXT  J 

3010  ASSIGN  ♦  TO  *7 

3015    rtenu«6 

3028    Number    com*ands»Nuniber_comr»ands  +  Number 

3025      CALL    C1e»r_l ine(12, 1> 

3030   GOTO  3140 

3035  Trouble:   ! 

3040   IF  ERRN-56  THEN  No_fi1e 

3045   IF  ERRN-54  THEN  Dup_fi1e 

3050   STOP 

3055  No  file:   ! 

3860   BEEP 

3065   PRINT 

3070   PRINT  "FILE  NON-EXS ISTANT  —   TRY  AGAIN" 

3075   UAIT  2000 

3088   CALL  C1e»r_1 ine<4, 12) 

3885   IF  F«2  THEN  Rec»ll_file 

3098   IF  F»3  THEN  Append'file 

3095   STOP 

3100  Dup  file:   ! 

3105   BEEP 

3110   PRINT 

3115   PRINT  "FILE  ALREADY  EXISTS  —  TRY  AGAIN" 

3120   UAIT  2000 

3125   CALL  C1e*r_l ine<4, 12) 

3130   IF  F"l  THEN  S»ue_fi1e 

3135   STOP 

3140  SUBEND 
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Subroutine  "Dfile" 


7710 
7715 
7720 
7725 
7730 


!  SUBROUTINE  TO  ASK  PROMPTS  FOR  DATA  FILE  NAME 
!  CALL!      CALL  DFILE 


riON  BASE  1  „*•..,, 

Command* <*), Nuaber_commands, Mode*, Menu, A3420, Word* <*), Prefix*.*; 
Editf*,Edit  1 i ne, B5420, SHORT  Pd*t»C»> , Npri nt , Sd*ta<*) , Nsave, St  at 
File*,SHORT~State<*),Ry<*),Ix<*),Sz<*),Xline,Tc,Tf,Ti,Np,Slope,Pl,l 


SUB  Df  i 1* 
OPTION  BASE  1 

7735  COM 

7736  COM 

7737  COM  .  . ...- 

7738  COM  SHORT  Xst art , Xstep, Rye <»>, Ixc CO, Frc CO , Cp, Int ercept , Frequency 

7739  COM  SHORT  P1  i  m,  Pxo,  Pxm,  Pyo,  Pym,  PI  oc  ,  Xo,  Xm,  Yo,  Ym,  Psc  al  •,  Xmi  n,  Xmax,  Yia<  n,  Yn,ax, 

7740*COM  SHORT  Cur , Po1 y , L»f , Sf 1 g, Regi on, Pf 1 g, P»t art , Pst op, Dl , D2, 03, D4 , D5, US, D7, D 

8.D9 

7741  COM  SHORT  Find  poi nts, Paper , Bl ue, BI ack , Onn, Of f, Sk i p, Devi ce, Pager , Nopager 

7742  COM  SHORT  Tpscal  e,  Tx«1  n,  Txmax,  Tymi  n,  Tymax,  Tnpts,  Tx<*) ,  Ty<*> ,  Tf  1  g, ! -.60,  Every 

7743  COM  SHORT  Dpscal t, Dxm i n, Dxmax, Bymi n, Dymax, Dnpt s, Df 1 g, PI ot s, Cut , Noc ut , T i me*C 

20] 

7744  !  COM  SHORT  CPX, XTP<«) , CPC, CTP<*> 

IF  Ed1tf*<>"  "  THEN  CALL  Put  11  ne<0,  0,  CHR*<  131  )S."EDIT  M0DE"«.CHRf  <  128>  ) 
CALL  Putl ine<0, 26, "DATA  FILE  MENU") 


7770 
7775 
7780 
7785 
7790 
7795 
7800 
7805 
7810 
7815 
7828 
7825 
7830 
7833 
7840 
7845 
7850 
7855 
7860 
7863 
7870 
7875 
7880 
7885 
7890 
7893 
7900 
7905 
7910 
7913 
7920 
7923 
7930 
7933 
7940 


SAVE  SHORT  DATA") 
RECALL  SHORT  DATA") 

SAVE  TIED  DATA") 
RECALL  TIED  DATA") 

CREATE  2ER0ED  SETS") 
RENAME  DATA  SETS") 

DELETE  DATA  SETS") 


CALL  Putl ine<2,5, "1 

CALL  Putl ine(2,33, "2 

CALL  Put  1 ine<3,5, "3 

CALL  Putl ine<3,33, "4 

CALL  Putl ine<4,5, "5 

CALL  Putl ine<4,35, "6 

CALL  Putl ine<5,5, "7 

CALL  Putline<7,5,"INPUT  YOUR  CHOICE*") 

INPUT  Dehoiee 

IF  Dchoice»0  THEN  Bye 

Number  commands-Number  commands+1 

IF  <Dehoice<l)  OR  <Dchoice>7)  THEN  7763 

IF  Dchoice«l  THEN  Dchoiee-9 

IF  Dchoice"2  THEN  Dchoice-10 

IF  Dchoiee-3  THEN  Dchoice-18 

IF  Dchoice«4  THEN  Dchoice-19 

IF  Dchoice«5  THEN  Dchoice»20 

IF  Dchoice»6  THEN  Dchoice»21 

IF  Dchoice«7  THEN  Dchoice-39 

IF  Dchoice-20  THEN  Zeroed 

IF  Dehoice"21  THEN  Ren  file 

IF  Dehoice-39  THEN  Del  fl  1 

CALL  Putl ine<9, 4, "INPUT  FILE-NAME:") 

LINPUT  Name* 

L"Number  commands 

IF  <Editf*-"ADD")  OR  <Edi t f *-"REP" )  THEN  L-Edit_line 

IF  Editf*-"ADD"  THEN  CALL  Shifty(l) 

Command*<L)-"»SYS»" 

Pref ix*CL)"VAL*<Dehoice) 

Word*<L)-Na»e*  ,,., 

!  IF  (Editf*-"  ")  OR  <Edi t f *«"ADD" )  THEN  Number_comraands=Number_command2+l 

CALL  Clear  1 ine<6, 10) 

GOTO  7813  ~ 
7945  Zeroed:   ! 
7930   Name«-"ZERO  DATA  SETS" 

7953   C0T0  7900  -o^s 

7960  Ren  file:   PRINT  "INPUT  DESIRED  NAME  <4  CHARS  MAX)  :« 
7965   INPUT  Name* 


7970   GOTO  7900 
7975  Del  fil:   PRINT 
7980   INPUT  Name* 
7985   GOTO  7900 
7990  Bye:   ! 
7995   Menu-7 
8000   SUBEND 


'INPUT  DESIRED  NAME  <4  CHARS  MAX) 
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Subroutine  "Droanip" 


le  SUB  Dmanip 

28  OPTION  BASE  1  v  _   . .    ,,    „ 

30  COM  Command***), Number  commands, Mode*, Menu, A5420, Uord*<*) , Prefi x#<»> 

40  COM  Editf*,Edit  1 i ne, B5420, SHORT  Pdat a< * > , Npri nt , Sdat a( *) , Nsawt , St  at 

50  COM  File*,SHORT~State(0,Ry(*),Ix(0,Sz(*),X1ine,Tc,Tf,Ti,Np,Slope,Pl,P* 

60  COM  SHORT  Xstart,Xstep,Ryc(*), Ixc (*) , Frc (*) , Cp, Intercept, Frequency 

70  COM  SHORT  Plim.Pxo.Pxm.Pyo.Pym.Ploe.Xo.Xm.Yo.Ym.Pscale.Xmin.Xmax.Ymin.Ymax, 

80X,*COM  SHORT  Cur , Pol y , Lsf , Sf 1 g, Regi on, Pf 1 g, Pst art , Pstop, Dl , D2, D3, D4, D5, D6, D7, D 

8,1)9 

90    COM  SHORT  Find  poi nt s, Paper , B1 ue, Bl ack , Onn, Of f , Sk i p, Devi ce, Pager , Nopager 
100   COM  SHORT  Tpscale,Txmin,Txmax,Tymin,Tymax,Tnpts,Tx(»),Ty(»),Tflg,Xg0,Euery 
110   COM  SHORT  Dpsca1«,Dxmin,Dxmax,Dymin,Dymax,Dnpts ,Dflg, Plots, Cut, Nocut , Ti me*C 

20] 

120  !  COM  SHORT  CPX,XTP(»),CPC,CTP(«) 

130  CALL  C  1  • *P 

140  IF  Editf*<>"  "  THEN  CALL  Put  1 i ne<0, 0, CHR* < 131 )8."EDIT  MODE "&CHR*< 128 ) ) 

130  CALL  Putl ine(0, 26, "DATA  MflNIPULflTIONS  GROUP") 

160  CALL  Putline<2,3,"l  -  TIE  DATA  SETS") 

170  CALL  PutHne<2,33,"2  -  SWAP  REAL  5.  IMAG") 

180  CALL  PutHne<3,3,"3  -  SCALE  REAL  I  IMAG") 

190  CALL  Putl ine(3,35,"4  -  LEAST  SQ.  FIT") 

200  CALL  Putline(4,3,"3  -  POLYNOMIAL  FIT") 

210  CALL  Putline(4,33,"6  -  SMOOTH  REAL  SHORT") 

220  CALL  Putline(3,5,"7  -  SMOOTH  IMAG  SHORT") 

230  CALL  Putline(3,33,"8  -  SMOOTH  BOTH  SHORT") 

240  CALL  Putline<6,5, "9  -  SMOOTH  REAL  TIED") 

250  CALL  PutHne(6,33,"10-  SMOOTH  IMAG  TIED") 

260  CALL  Put  1 ine<7,3,"ll»  SMOOTH  BOTH  TIED") 

270  CALL  Putline(7,33,"12-  MOVE  SHORT  TO  TIED") 

288  CALL  Putl ine<8,3, "13"  CURSOR") 

290  CALL  Putline<8,33, "14«  REGION  OF  INTREST") 

300  CALL  Putl ine<9, 5, "INPUT  YOUR  CHOICE  »"> 

310  INPUT  Dchoiee 

320  IF  Dchoice-0  THEN  Bye 

330  IF  Dchoice«l  THEN  Tie 

340  IF  <Dchoice>-2)  AND  (Dchoi ce<»  14)  THEN  Manip 

330  IF  (Dchoice<0)  OR  <Dchoice>14>  THEN  130 

360  Tie:    !  NC 

370  CALL    Putl  inedl, 5,  "INPUT    FILES:") 

380  LINPUT  Ft                                                              ,  __, 

390  IF  (Editf*-"  ")  OR  (Editf*-"ADD")  THEN  Number_commands«Number_comrnands+l 

400  L=Number  commands 

410  IF  (Editf«-"REP")  OR  (Edi t f *»"ADD" )  THEN  L-Edit_line 

420  IF  Editf*«"ADD"  THEN  CALL  Shifty(l) 

430  Comm»nd*<L)-"*SYS*" 

440  Pref  ix*(L)-VAL*(ll) 

450  Word*(L)-F* 

460  CALL  Clear  line(7,10) 

470  GOTO  310 

490  *iFP<Editf*-"  ")  OR  (Editf*»"ADD")  THEN  Number_commands»Number_commands+l 

500  L-Number  commands 

510  IF  (Editf*-"ADD")  OR  (Edi t f *«"REP" )  THEN  L»Edit_line 

520  IF  Editf*-"ADD"  THEN  CALL  Shifty(l) 

330  Command*(L)-"»SYS»" 

340  IF  Dchoice-2  THEN  Pref i x*(L)-VAL*(22) 

550  IF  Dehoiee-3  THEN  Pref i x*(L>-VAL*(23) 

360  IF  (Dehoice>-4)  AND  (Dehoi ce<-12)  THEN  Pref i x*(L)-VAL*(Dchoi ce+26) 

570  IF  <Dehoiee>-13)  AND  (Dchoi ce<-14)  THEN  Pref i x*(L)-VAL*(Dchoi ce+28) 

560  IF  Dchoice-2  THEN  Uord*(L)-"SUAP  REAL, IMAG" 

590  IF  Dehoiee-3  THEN  CALL  Put  1 i ne(9, 5, " INPUT  FUNCTION  (*  /)"> 

600  IF  Dehoiee-3  THEN  LINPUT  Fune* 

610  IF  Dehoiee-3  THEN  Fac*-"  " 

620  IF  Dehoiee-3  THEN  PRINT  "INPUT  VALUE  FOR  SCALING" 

630  IF  Dehoiee-3  THEN  INPUT  Fac* 
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Subroutine  "Drcanip"  continued 


640  IF  Dchoic»«3  THEN  PRINT  "REAL  OR  IMAGINARY  (R  or  I  or  RI>  ?  " 

650  IF  Dchoict-3  THEN  INPUT  Rib* 

631  IF  <Dchoie*«3>  AND  <LEN<Ri b*>-0>  THEN  Rib«-"RI" 

660  IF  Dchoict-3  THEN  Ri b*»TRIIH(Ri b* > 

670  IF  Dehoic««3  THEN  Uord»<L>"TRIM*<Func  *&"  ,  "«<Fac*8."  ,  "«.R  i  b*> 

688  IF  Dehoic»-4  THEN  Word*<L)-"LEAST  SQ." 

698  IF  <Dchoice>»6>  AND  (Dchoi ce<-l  1  >  THEN  PRINT  "INPUT  TIMES  SMOOTHED" 

788  IF  <Dchoie*>-6>  AND  (Dchoi C«<»1 1 >  THEN  INPUT  Times 

718  IF  <Dchoic«>«6>  AND  <Dchoi C»<»1 1 >  THEN  Mord*<L)-VAL*<Ti •«*) 

728  IF  Dehoic»-12  THEN  Uord*<L>»"SHORT  TO  TIED" 

738  IF  Dchoic»-14  THEN  PRINT  "REGION  OF  INTREST:  Cl-ON    0-OFF)  ?" 

748  IF  Dehoic««t4  THEN  INPUT  Uord*<L> 

738  IF  Dchoic*«13  THEN  Uord* <L)«"CURS0R" 

768  IF  Dehoic»«3  THEN  PRINT  "POLYNOMIAL  POINT  FINDER:  <1=QUICK   2=L0NG   3»MFlNU 

AD  ?" 

778  IF  Dehoic»-5  THEN  INPUT  UordtCL) 

788  CALL  Clear  1in*(9,ll> 

798  GOTO  300 

888  By*:    ! 

818  M»nu»8 

828  SUBEND 
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Subroutine  "Mul        file" 


4635  !  SUBROUTINE  FOR  MULTIPLE  FILES 

4668  !  CALL:      CALL  MUL  FILE 

4663  SUB  Mul  flit 

4678  OPTION  BASE  1 

4673  COM  Command* <* ) , Number_commands, Mode*, Menu, A3420, Word*< * ) ,Prefix$(*) 

4676  COM  Editf*,Edit_1 in«,B5420, SHORT  Pdat a< * ) , Npr i nt , Sdat a<* > , Nsaue, St  at 

4677  COM  Fi1e*,SHORT  St  at e< *) , Ry <•) , Ix<*) , Sz<*) , XI i ne, Tc , Tf , Ti , Np, S 1  ope  ,  PI ,  P2 

4678  COM  SHORT  X*t art , Xfttep, Rye <*), I xe <*), Frc <♦), Cp, Intercept , Frequency 

4679  COM  SHORT  PI  i m,  Pxo,  Pxm,  Pyo, Pym, P 1 oc , Xo, Xm, Yo, Ym, Psc al e, Xmi n, Xmax, Ymi n, Ymax, 
Paxi  s 

4688  COM  SHORT  Cur , Pol y, Lftf , Sf 1 g, Regi on, Pf 1 g, P*t art , Pst op, Dl , D2, D3, D4, D5, D6, D7, D 
8,09 

4681  COM  SHORT  Fi nd_poi nt*, Paper , Bl ue, Bl ack , Onn, Of f , SW i p,  Deui ce, Pager ,  Hopager 

4682  COM  SHORT  Tpscal e, Txmi n, Txmax, Tymi n, Tymax, Tnpts, Tx<* ), Ty<* ), Tf 1 g, X60, Every 

4683  COM  SHORT  Dpscal e, Dxmi n, Dxmax, Dymi n, Dymax, Dnpt s, Df 1 g, P 1 ot s, Cut , Noc ut ,  Ti me*t 
283 

4684  !  COM  SHORT  CPX, XTPC*) , CPC, CTP<« ) 
4783   ON  ERROR  GOTO  Trouble 

4718  Menu-11 

4713  CALL  Clear 

4720  CALL  Put li ne<8, 24, "FILE-OF-FILES  MENU") 

4723  CALL  Put li ne< 2, 8, "YOU  MAY  BUILD,  EXECUTE  OR  LIST  A  FILE-OF-FILES:") 

4738  CALL  Put  1 ine<4,3, "INPUT  YOUR  CHOICE  <B  E  L)  «") 

4733  LINPUT  Choice* 

4740  IF  Choice*""8"  THEN  Bye 

4745  CALL  Put li ne<6, 8, " INPUT  FILE  NAME:") 

4738  LINPUT  Name* 

4755   IF  POSCName*,  ":  ")"8  THEN  Name*»Name*8.  "  :  F9" 

4768  IF  Choiee*»"8"  THEN  Build 

4765  IF  Choice**"E"  THEN  Execute 

4770  IF  Choice*-"L"  THEN  Listc 

4773  BEEP 

4780  GOTO  4715 

4785  Bui  Id:  ! 

4790  CREATE  Name*, 18 

4795  ASSIGN  »6  TO  Name* 

4800  PRINTER  IS  0 

4805  PRINT  "FILE-OF-FILES  NAME:  "JName* 

4810  PRINT 

4815  PRINTER  IS  16 

4820  CALL  Putl ine<8, 8, "ENTER  FILE-NAMES  ONE  AT  ft    TIME  8,  END  WITH  **") 

4825  CALL  Putl ine<18,0, "  "> 

4830  LINPUT  Fi le* 

4833  IF  Filt*»"*«"  THEN  End_build 

4840   IF  POS<Fi  le«,  ":  ")-8  THEN  F  i  1  e*-Fi  1  e*t."  :  F9" 

4845  PRINTER  IS  8 

4858  PRINT  Fi le* 

4855  PRINTER  IS  16 

4868  PRINT  »6;Fi le* 

4865  GOTO  4825 

4870  End  bui Id:  ! 

4875  PRINT  #6; "*♦" 

4888  ASSIGN  »  TO  »6 

4885  GOTO  Bye 

4898  ! 

4895  Execute:  ! 

4988  ASSIGN  #6  TO  Name* 

4985  READ  »6;Fi 1 e* 

4918  IF  File*»"*«"  THEN  End_execute 

4913  ASSIGN  #7  TO  Fi  1  e* 

4928  READ  t7; Number_commands 

4923   FOR  J»l  TO  Number  commands 

4938   READ  #7; Command** J) , Uord*< J) , Pref i x*( J ) 

4933   NEXT  J 

4948  ASSIGN  •  TO  #7 

4945  IF  Tf-0  THEN  4963 
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Subroutine  "Mul    file"  continued 


4930 

PRINTER  IS  0 

4953 

PRINT  Fi 1** 

4960 

PRINTER  IS  16 

4963 

CALL  S*nd 

4970 

GOTO  4905 

4973 

End  ixiculi:  ! 

4980 

ASSIGN  •  TO  *6 

4983 

GOTO  By* 

4990 

Liste:   PRINTER 

IS  0 

4993 

PRINT  "CONTENTS 

OF  FILE:  ";Nam*» 

5800 

PRINT 

5003 

ASSIGN  #6  TO  Nam** 

5010 

READ  »6;S* 

5015 

IF  S*-"*»"  THEN 

GOTO  Ext 

5020 

PRINT  S* 

5025 

GOTO  5010 

5030 

Ext:   PRINTER  IS 

16 

5033 

GOTO  By* 

3040 

Trouble:   ! 

3045 

IF  ERRN-54  THEN 

Dup  f i 1 • 

5050 

IF  ERRN-56  THEN 

No_f i It 

5055 

STOP 

5060 

Dup  f i 1 •:   ! 

5065 

BEEP 

5070 

PRINT  "FILE  ALREADY  EXISTS  —  TRY  AC 

5073 

WAIT  2000 

3080 

CALL  Cl*»r  1  in* 

<7, 10) 

3083 

GOTO  4710 

5090 

No  f i 1*:   ! 

5095 

BEEP 

5100 

PRINT  "BAD  FILENAMES:   ";Nam**;",  " ; 

5105 

STOP 

5110 

By*:  ! 

5113 

SUBEND 

;Fi 1**, "HALT' 
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Subroutine  "Com        group1' 


3140   SUB  Com_group 

3143   OPTION  BASE  1 

3130  COM  Command* (*),Number_commands, Mode*, Menu, A5420, Word*< * ) , Pref ix*(*) 

5151  COM  Editf*,Edit  ti ne, B3420, SHORT  Pd»t a(*) , Npr i nt , Sdat a(*) , Ni4ut, St  at 

3132  COM  Fi 1 e* , SH0RT~St ate(« ) , Ry ( O , Jx< *) , Sz< *) , XI l ne, Te , Tf , Ti , Np, SI  ope, PI , P2 

3153  COM  SHORT  Xst art , Xstep, Rye (*>, Ixc <*), Frc (•), Cp, Interc ept , Frequency 

5154  COM  SHORT  PI  i m,  Pxo,  Pxm, Pyo,  Pym, PI oc , Xo, Xm, Yo, Ym, Pscal e, Xm i n, Xmax, Ymi n, Ymax, 

Pax  i  s 

3135  COM  SHORT  Cup, Pol y , Lsf , Sf 1 g, Regi on, Pf 1 g, Pit  art , Pstop, Dl , D2, D3, D4, D3, D£,  D7,  D 

8.D9 

3156  COM  SHORT  F i nd_poi nts, Paper ,  Bl ue,  Bl  ack  ,  Onn,  Of f,  Sk i p,  Deui ce,  Pager ,  Nopager 

5157  COM  SHORT  Tpscal  e,  Txmi n,  Txmax, Tymi n, Tymax, Tnpt s, Tx(«) , Ty< ») , Tf 1 g, X60, E^ery 

5158  COM  SHORT  Dpscal e,  Dxmi n, Dxmax, Dymi n, Dymax, Dnpt s , Df 1 g, PI ot s , Cut , Nocut , Ti me*C 

20: 

COM  SHORT  CPX,XTP(*),CPC,CTP(*> 
Menu"12 
CALL  Clear 
IF  Editf*<>"  "  THEN  CALL  Put  1 i ne(0, 0, CHR*( 131 )l"EDIT  M0DE"«.CHR*(123)  ) 


5159 
5180 
5185 
5190 
5195 
5200 
5283 
5210 
5215 
5220 
5225 
5230 
5235 
5240 
5245 
5230 
5255 
5260 
5265 
5270 
5273 


ne(0, 23, "COMPUTER  CROUP  MENU") 
ne<2,3, "1  »  PLOT  LABEL") 
ne<2,30,"2  «  FILE  LABEL") 
ne(2,37, "3  -  ♦  UNUSED  *") 
ne<3,3, "4  »  •  UNUSED  ♦") 
ne<3,30, "5  ■  #  UNUSED  *") 
ne<3,57,"6  »  LINEAR  ARRAY  PLOT") 
ne(4,3,"7  ■  LINEAR  STEP  PLOT") 
ne(4,30,"8  ■  LINEAR  SPECIAL") 
ne<4,57,"9  ■  T-IM  w*  RE") 
ne<5,3,"10"  T-RE  us  IM*H2") 
ne<5,30,"ll-  T-RE  u*  IM/-HZ") 
ne<5,57,"12»  T-COHERENCE" ) 
ne<6,3,"13«  T-S'N") 
neC6,30, "14-  T-PHASE") 
ne<6,37,"15«  T-LC  MAC  us  LG  HZ") 
ne<7,3,"16-  VOLTAGE  HISTOGRAM") 


CALL  Put 

CALL  Put 

CALL  Put 

CALL  Put 

CALL  Put 

CALL  Put 

CALL  Put 

CALL  Put 

CALL  Put 

CALL  Put 

CALL  Put 

CALL  Put 

CALL  Put 

CALL  Put 

CALL  Put 

CALL  Put 

CALL  Put 
5280  Inp:  I 

5285   CALL  Put  1 i ne <9, 5, " INPUT  YOUR  CHOICE  *") 
5290   INPUT  Com  choice 

5295   IF  (Com  choice-1)  OR  (Com  choice»2)  THEN  Labelp 
5300   IF  (Com~choice>-6)  AND  (Com  choice<»16)  THEN  Plots 
5305   IF  Com  choice-0  THEN  Bye 
3310   BEEP 
3313   GOTO  3180 
5328  Labelp:  ! 
5325   !  L'Number  commands 

5330   CALL  Put  1 ine( 1 1 , 10, " INPUT  PAPER  SIZE  IN  X,Y  FORMAT  (i.e. 
5333   INPUT  Px.Py 

3340   CALL  Putl ine(13, 10, "INPUT  LABEL  COORDINATES  IN  X,Y  FORMAT 
3345   INPUT  Lx.Ly 

5350   CALL  Putl ine(15, 10, "INPUT  CHARACTER  HEIGHT  IN  64ths:") 
5355   INPUT  Chrsiz 

5360  CALL  Putl ine(17, 10, "INPUT  PEN  »  :") 
5363   INPUT  Pen 

5370   Number_eommands"Number_commands+l 
5375   L*Number  commands 

5388   IF  Editf*-"ADD"  THEN  L-Edit  line 
5383   IF  Editf*-"ADD"  THEN  CALL  ShiftyO) 
5390   IF  Com  choice-1  THEN  3405 
5395   L*»File* 
5400   GOTO  5415 

5485   CALL  Put  1 ine(19, 10, "INPUT  LABEL:") 
3410   INPUT  L* 
5413   Command*(L)-"*SYS«" 

3420  IF  Com  choice-1  THEN  Pref i x*(L)«" 1 " 
5425  IF  Com~choice-2  THEN  Pref i x*(L)-"2" 
5430   Uord*(L)-"PLOTTER  LABEL" 


8.5,11) 
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Subroutine  "Con group"  continued 

3433  L-L+l 

3440  Comm*nd*<L>«VAL*<Px>«.",  "tVAL*<Py> 

3445  Pr«f ixS<L)«VAL*(Lx)t", "tVAL«<Ly> 

3430  L-L  +  l 

3435  Pref i x*<L)-VAL*<Chrsi z>t" , "tVfiL*CP«n> 

3460  Comm»nd»(L>-L$ 

5465  CALL  Cl**r  Hn«(7,13) 

5470  Word«(L>-"ENDSYS  1" 

5475  Number  co««*nds»Nu»b«r  commands+2 

5480  GOTO  Inp 

5485  Plots:   I 

3490  IF  Con  choicr«13  THEN  Com  choice«21 

5495  IF  Com~choice»16  THEN  Com~ehoi c e-37 

3300  CALL  Putl in»<ll, 10, "INPUT-X  t  Y  LABELS  i.  TITLE  SEPARATED  BY  COMMAS: 

3505  INPUT  X«,Y«,T* 

5510  CALL  Put  HntdS,  10,  "INPUT  PEN  NUMBER:") 

5515  INPUT  Pn 

5520  CALL  Putlin»<17,10,"PLOT  CODE  1-CRT   2-PRINTER   3-PLOTTER  ?") 

5525  INPUT  Pe  i 

5530  Numb«r_c  omm»ndi»Nutnber_c  ommand*  + 1 

3533  L»Nun>b#r    conandf 

5540  IF    Editf?-"ADD"    THEN    L»Edit     line 

5545  IF    Editf*«"ADD"    THEN    CALL    Shifty<3> 

3550  Comm*ndS<L>-"*SYS*" 

5555  Pref ix*CL)-VAL*<Com  choice) 

5560  IF  Com_ehoice>-9  THEN  Pref i x«<L)»VALt (Com  choice+3> 

5565  IF  (Com  choice>«3>  AND  (Com  choice<-3>  THEN  Word* <.L)«"SEMIL0G  PLOT' 

5570  IF  (Com~choice>»6>  AND  (Com~choi ce<»8)  THEN  Word* <L>«"L INEAR  PLOT'' 

5575  IF  (Com~ehoice>»9)  AND  <Com~choi ce<»15)  THEN  WordS(L>-"TIED-DATA" 

5380  IF  Com  c"hoiee-16  THEN  Uord*~L)-"HISTOGRAM" 

3585  L-L+l 

5590  Co»m*nd*<L>-X* 

5595  Pref ix«(L>-YS 

5600  Uord*(L)»T* 

5605  L-L+l 

5610  C-Com  ehoice-2 

5615  IF  Com  choice>-9  THEN  C-Com  choice+3 

5620  Command* (L>-VAL»(C) 

5625  Pref ix*(L>-VAL*(Pn)l", "lVAL*(Pc> 

5630  Uord*(L>-"ENDSYS  PLOTS" 

5635  Number  commands-Number  comm*nds+2 

5640  CALL  dear  line(7,13> 

5645  GOTO  Inp 

5650  By*:  ! 

5655  SUBEND 
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Subroutine  "Plot  group" 

18370  SUB  Plot  group 
10373  OPTION  BASE  1 

10380  COM  Command* <*) ,  Nui»ber_comaands,  Mode*,  Menu,  A5420,  Uord*<*) ,  Pref  i  x*C*;> 

10381  COM  Editf*,Edit  1 i ne, B5420, SHORT  Pdat a<») , Npri nt , Sdat a< *) , Nsave, St  at 

10382  COM  Filtl, SHORT  State<#) , Ry <*) , Ix<»> , Sz(*) , XI i ne, Tc , Tf , Ti , Np, SI  ope, PI , P2 

10383  COM  SHORT  Xstart , Xitep, Rye <*), Ixe <*), Frc <«), Cp, Intercept , Frequency 

10384  COM  SHORT  P  1  i m,  Pxo,  Pxm,  Pyo,  Pym,  PI oc , Xo, X», Yo, Ym, Pscal e, Xmi n, Xmax, Ymi n, Yrnax 
, Paxi * 

18385  COM  SHORT  Cur ,  Pol  y ,  Lsf ,  Sf 1 g, Regi on, Pf 1 g, Pst art , Pst op, Dl , D2, D3, D4, D5, D6, D7, 
1)8,119 

10386  COM  SHORT  F i nd_poi nt», Paper , B1 ue, Bl ack , Onn, Of f, Sk i p, Deui ce, Pager , Nopager 

10387  COM  SHORT  Tpscal  e,  Txmi n, Txmax, Tymi n, Tymax, Tnpt s, Tx<» >, Ty<») , Tf 1 g, X66, Every 

10388  COM  SHORT  Dpscal e, Dxmi n, Dxmax, Dymi n, Dymax, Dnpts, Df 1 g, PI ots, Cut , Nocut , Ti me* 
[203 

10389  !  COM  SHORT  CPX, XTP<*) , CPC, CTP(e) 
10410  CALL  Clear 

10413  IF  Editf*<>"  "  THEN  CALL  Put  1 i ne<0, 0, CHR*< 131 )  f'EDIT  M0DE"8.CHR*<  128  )  > 

10420  CALL  Put  1 ine<0,26,"PLOT  CROUP  MENU") 

10423  CALL  Putl ine<2,5, "1  ■  PLOT  LIMITS") 

10430  CALL  Putl ine<2,23, "2  ■  PLOT  LOCATION") 

10433  CALL  Putl ine(3,5, "3  ■  PLOT  SCALE") 

10440  CALL  Putl ine<3,25, "4  ■  AXIS  FLAG") 

10445  CALL  Put  1 ine<6,3, "INPUT  YOUR  CHOICE*") 

10450  INPUT  Pehoiee 

10433  IF  Pchoice-0  THEN  Bye 

10460  Pchoi ee«Pchoi ce*25 

10465  Number  commands"Number_c ommands* 1 

10470  IF  Pchoiee-29  THEN  Px 

10473  CALL  Putl ine<8,3, "INPUT  XO  AND  XM") 

10480  LINPUT  Pairl* 

10485  CALL  Put  1 ine<ll,5, "INPUT  YO  AND  YM") 

10490  LINPUT  Pair2* 

10495  GOTO  Kont 

10500  Px:  CALL  Put  Hne<8,5,  "AXIS  FLAG  C0-NEU    1-NEU  FOR  OVERLAY   2-OVERLAY   3-L 

AST  OVERLAY)") 

10505  INPUT  XI 

10510  X2-0 

10515  Pairl*»VAL*(Xl)t",  "S.VALJCX2) 

18520  Pair2*-"0,0" 

10525  GOTO  Kont 

10330  Kont:  ! 

10535  L*Number  commands 

10540  IF  <Editf*-"ADD")  OR  <Editf*-"REP")  THEN  L»Edit_Hne 

10545  IF  Editf*«"ADD"  THEN  CALL  Shifty<2) 

10558  ! 

10555  Command*CL)-"*SYS»" 

10560  Pref ix*<L)-VAL*CPehoice) 

10565  IF  Pchoice-26  THEN  Word*<L )»"PL0T  LIMITS" 

10570  IF  Pchoice«27  THEN  Uord*<L)-"PL0T  LOCATION" 

10575  IF  Pchoice-28  THEN  Uord*<L)-"PLOT  SCALE" 

10580  IF  Pchoice-29  THEN  Uord«(L)-"AXIS  FLAG" 

10585  L-L+l 

10590  Command*CL)«Pairl* 

10595  Pref ix«<L)-Pair2* 

10600  Uord*CL)-"ENDSYS  PLOT" 

10605  CALL  Clear  1ine(6,12) 

10610  IF  Editf*«T  "  THEN  Number  commands-L 

10615  IF  Editf*«"ADD"  THEN  Number_commands-Nu*ber_co»mands*l 

10620  IF  Editf*""REP"  THEN  Nu«ber_commands»Number  commands+0 

10625  GOTO  10445 

10630  Bye:  ! 

10635  Menu-14 

10640  SUBENS 
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Canmand  Files 

The  HP9845  was  used  both  to  control  the  HP5420  for  data 
acquisition  and  then  to  manipulate  and  graphically  portray  data  sets. 
A  collection  of  canmand  files  was  written  to  control  the  computer  in 
the  execution  of  these  tasks.  The  command  files  evolved  from  consol- 
idations of  small  command  sequences  into  longer  files  which  execute 
an  entire  data  collection  program  or  perform  an  entire  plot  series. 
Although  numerous  small  command  files  were  created  to  perform 
specialized  infrequent  tasks,  those  described  here  constitute  the 
major  command  files  needed  by  the  operator  of  the  AC  corrosion  system. 

Command  files  are  created  by  calling  appropriate  sections  of 
the  unit  group  menu  offered  by  system  software.  Once  one  has  called 
the  section  on  HP5420  set-up,  for  example,  the  user  is  queried  as  to 
which  setup  functions  are  desired.  Upon  answering  these  queries,  a 
command  file  line  is  created.  Once  a  sequence  of  commands  has  been 
created  and  checked,  it  may  be  named  and  saved  for  future  use. 
Data  Acquisition  Command  Files 

CQMCEL  -  Comprehensive  DELI  Data  Collection.  Command  file 
CCMCEL  controls  the  HP5420  in  the  acquisition  of  tied  impedance  and  S/N 
data  sets.  The  tied  data  sets  consist  of  1152  data  points  collected 
over  five  ranges  of  frequency:  0-25kHz,  0-3. 2kHz,  0-256HZ  and  0-3I25Hz. 
The  initial  commands  consist  of  setting  all  data  points  equal  to  zero 
and  then  setting  up  the  HP5420  for  data  collection  in  the  0-25kHz  range. 

Impedance  data  is  collected  by  determining  the  transfer  function 
from  an  input  voltage  perturbation  and  an  output  current  response. 
The  transfer  function,  which  is  actually  an  admittance  measurement,  is 
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then  inverted  in  the  frequency  domain  to  yield  the  impedance.  Results 
of  the  0-25kHz  measurement  are  then  stored  on  the  floppy  disk  as  file  6X, 
and  the  coherence  function  for  this  frequency  range  is  determined.  As 
shown  in  Appendix  A,  the  coherence  function  may  be  manipulated  to 
yield  the  S/N  for  that  range  of  frequency.  The  S/N  data  for  the  0-25kHz 
is  stored  as  disk  file  6C. 

Subsequent  set-up  and  data  collection  is  accomplished  in  the 
same  order  for  the  remaining  frequency  ranges.  Impedance  data  is 
stored  in  disk  files  5X,  4X,  3X  and  2X,  respectively,  while  S/N  data 
is  stored  in  disk  files  5C,  4C,  3C,  and  2C,  respectively.  Upon  completion 
and  storage  of  impedance  and  S/N  data  for  the  lowest  frequency  range, 
the  respective  data  sets  are  combined,  throwing  out  low  resolution 
overlapping  data  points.  The  resultant  1152  tied  impedance  data  set 
is  stored  on  the  floppy  disk  as  NAMETT  while  the  tied  S/N  data  set  is 
stored  as  NAMESN.  The  entire  command  sequence  takes  roughly  12  minutes 
to  execute. 

SHTCEL  -  SHorT  CEL1  Data  Collection.  Command  file  SHTCEL 
generates  a  tied  impedance  data  set  in  the  same  manner  as  CQMCEL.  By 
eliminating  the  commands  which  generate  S/N  data,  this  sequence  can  be 
completed  in  about  nine  minutes. 

Other  Data  Gathering  Command  Files.  Because  of  the  versatility 
of  the  main  program,  it  is  possible  to  create  command  sequences  to 
perform  any  of  the  numerous  operations  within  the  capability  of  the 
HP5420.  A  number  of  others  were  created  for  the  convenience  of  the 
author.  This  series,  nicknamed  FAST,  were  designed  to  provide  a  five 
decade  frequency  analysis  as  rapidly  as  possible.  For  example, 


210 
FASZTR  delivers  the  impedance  transfer  function  over  a  five-decade 
region,  quickly.  FASAUT  delivers  the  auto  power  spectrum  quickly, 
etc.  A  list  of  CCMCEL,  SHTCEL,  FASZTR,  AND  FASAUT  follows. 
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Cormand  file  "CCMCEL" 


1  //    ///////////s/////// 

2  /•  COMMAND  FILE  COMCEL 

3  //    /////////////////s/ 

4  ••  set  up  3420  for  25 

5  ll; 

6  »SYS* 

7  e  rs; 

8  3  FR; 

9  20,1  av; 
18      2  SG; 

11  l  TC; 

12  8  CH; 

13  1KV    rg; 

14  l  AC; 

15  l  CA; 

16  8HD  CF; 

17  23.6KV   BU; 

18  MR; 

19  i  ch; 

20  3  FR; 

21  //    START  RUN  FOR  25. 6K 

22  ST; 

23  ir; 

24  //  convert  admittance 
23       -1  DV; 

26  •/  SAVE  IMPEDANCE  FUNC 

27  501  SA; 

28  *SYS* 

29  -1  DV; 

30  2  FM; 

31  0  TC; 

32  "    DETERMINE  %'H 

33  CO; 

34  MG; 
33        2  TC; 

36  , 1,0  SB; 

37  DV; 

38  lm; 

39  1  FM; 

40  //    SAVE  S'N  DATA  FOR  2 

41  581  SA; 

42  »SYS« 

43  //    SET  UP  AND  COLLECT 

44  3.2KV   BU; 
43        1  CH; 

46  TNJ 

47  ST; 

48  IR; 

49  -1  DV; 
30       301  SA; 
51        *SYS* 

32  -1  DV; 

33  2  FM; 
54        0  TC; 

35  CO; 

36  MG; 

57  2  TC; 

58  , 1,8  SB; 

59  DV; 

68       lm; 

61  l  fm; 

62  501  SA; 

63  *SYS* 

64  //    SET  UP  AND  COLLECT 


/  /  / 

6KHZ  BANDWIDTH 

20 

0 

5 

20,  1 

2 

1 

0 

1VOLT 

1 

1 

0HZ 

2S.6KHZ 


1 

5 
HZ  BANDWIDTH 


TO  IMPEDANCE 

-1 
TION 

501 

9 

-1 

2 

0 


2 
,1,0 


5.6KHZ  BAND  WIDTH 

501 

9 
DATA  FOR  3.2KHZ  BAND 

3.2KHZ 

1 


-1 
501 
9 
-1 

2 
0 


LOC  LOCKOUT 

ZERO  DATA  SETS 

RESET 

FREQ 

AVG 

SGNL 

TRIG 

CHAN  « 

RANGE 

AC.DC 

CAL 

CENT  FREQ 

BU 

MAX  RATE 

CHAN  * 

FREQ 

START 
IM/RE 


SAVE 

6X 

/ 

FORMAT 
TRACE 

COHER 

MAG 

TRACE 


2 
,1,0 


1 

501 
9 
DATA  FOR  256  HZ 


LOG  MAG 
FORMAT 

SAVE 
6C 
3 
BU 

CHAN  « 
TRANS 
START 
IM/RE 
/ 

SAVE 
5X 
/ 

FORMAT 
TRACE 
COHER 
MAG 
TRACE 


LOG  MAG 
FORMAT 
SAVE 
3C 
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Comand  File  "CCMCEL"  continued 


65 

256HD  BU; 

256HZ 

66 

1  CH; 

1 

67 

tn; 

63 

st; 

69 

ir; 

70 

-l  Dv; 

-1 

71 

sei  SA; 

501 

72 

♦  SYS* 

9 

73 

-l  dv; 

-1 

74 

2  fm; 

2 

75 

a  tcj 

0 

76 

CO; 

77 

HG; 

78 

2  tc; 

2 

79 

,1,0  SB; 

,1,0 

80 

dv; 

81 

lm; 

82 

l  fm; 

1 

83 

501  SA; 

501 

84 

*SYS* 

9 

85 

//  SET  UP  AND 

COLLECT 

DATA  FOR  25  HZ 

86 

2SHD  BU 

25HZ 

87 

1  CH; 

1 

88 

tn; 

89 

ST; 

98 

IR; 

91 

-l  Dv; 

-1 

92 

set  sr; 

501 

93 

♦  SYS* 

9 

94 

-i  dv; 

-1 

95 

2  fm; 

2 

96 

0  tc; 

0 

97 

CO; 

98 

HG; 

99 

2  tc; 

2 

180 

,i,0  SB; 

,  1,0 

181 

dv; 

102 

lm; 

103 

l  fm; 

1 

104 

501  Sfl; 

501 

105 

♦  SYS* 

9 

106 

//    SET  UP  AND 

COLLECT 

DATA  FOR  3. 125HZ 

107 

3. 125HD 

BU 

3. 125HZ 

108 

1  CH; 

1 

109 

tn; 

110 

ST; 

111 

IR; 

112 

-l  Dv; 

-1 

113 

501  Sfl; 

501 

114 

•  SYS* 

9 

115 

-l  Dv; 

-1 

116 

2  fm; 

2 

117 

8  tc; 

0 

118 

co; 

119 

mg; 

120 

2  TC; 

2 

121 

,1,0  SB 

,1,0 

122 

Dv; 

123 

LM; 

124 

l  FM; 

1 

125 

501  Sfl; 

501 

126 

♦  SYS^ 

9 

127 

'/  TIE  IMPEDANCE  DflTH 

SETS 

128 

♦  SYS^ 

11 

129 

♦  SYS^ 

18 

130 

/'    TIE  S'N 

DATA  SETS 

131 

♦  SYS^ 

11 

BU 

CHAN  « 

TRANS 

START 

IM/RE 

/ 

SAVE 

4X 

/ 

FORMAT 

TRACE 

COHER 

MflG 

TRACE 


LOG  MAG 
FORMAT 
SAVE 
4C 

BU 

CHAN  « 

TRANS 

START 

IM/RE 

/ 

SAVE 

3X 

/ 

FORMAT 

TRACE 

COHER 

MAG 

TRACE 


LOG  MAG 
FORMAT 
SAVE 
3C 

BU 

CHAN  « 

TRANS 

START 

IM/RE 

/ 

SAVE 

2X 

/ 

FORMAT 

TRACE 

COHER 

MAG 

TRACE 

/ 

LOG  MAG 
FORMAT 
SAVE 
2C 
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Command  file  "CCMCEL"  concluded 


132  *SYS»  18  NflMESN 

133  GL;  GOTO  LOCfiL 
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Command  file  "SHTCEL" 


1 

/  / 

////////////////////// 

2 

// 

COMMAND  FILE  SHTCEL 

" 

3 

// 

////////////////////// 

4 

/  / 

SET  UP  5420 

FOR  25. 

6KHZ  BANDUIDTH 

5 

ll; 

6 

•  SYS* 

20 

7 

e  rs; 

8 

8 

5  FR; 

5 

9 

20,1  AV; 

20,  1 

18 

2  SC; 

2 

11 

l  TG; 

1 

12 

e  CH; 

0 

13 

. ikv   RG; 

.  1VOLT 

14 

1  AC; 

1 

15 

l  Cfl; 

1 

16 

0HD  CF; 

0HZ 

17 

25.6KV   BU; 

25.6KH2 

18 

MR; 

19 

1  CH; 

1 

28 

5  FR; 

5 

21 

/  / 

START  RUN  FOR  25.6KHZ  BANDWIDTH 

22 

ST; 

23 

IR; 

24 

/  / 

CONVERT  ADMITTANCE 

TO  IMPEDANCE 

25 

-1  Dv; 

-1 

26 

// 

SAVE  IMPEDANCE  FUNCTION 

27 

501  sa; 

581 

28 

♦  SYS* 

9 

29 

/  / 

SET  UP  AND 

COLLECT 

DATA  FOR  3.2KHZ 

38 

3.2KV   BU; 

3.2KHZ 

31 

1  CH; 

1 

32 

tn; 

33 

st; 

34 

IR; 

35 

-l  Dv; 

-1 

36 

501  sa; 

501 

37 

♦  SYS* 

9 

38 

/  / 

SET  UP  AND 

COLLECT 

DATA  FOR  256  H2 

39 

256HD  BU; 

2S6HZ 

48 

i  ch; 

1 

41 

tn; 

42 

ST; 

43 

if; 

44 

-l  DV; 

-1 

45 

501  SA; 

501 

46 

*SYS* 

9 

47 

// 

SET  UP  AND 

COLLECT 

DATA  FOR  25  HZ 

48 

25HD  BU; 

2SHZ 

49 

1  CH; 

1 

50 

tn; 

51 

ST; 

52 

IR; 

53 

-l  dv; 

-1 

54 

501  SA; 

581 

55 

•  SYS* 

9 

56 

// 

SET  UP  AND 

COLLECT 

DATA  FOR  3. 125H 

57 

3.12SHD  BU 

3. 125HZ 

58 

1  CH; 

1 

59 

tn; 

68 

st; 

61 

IR; 

62 

-1  Dv; 

-1 

63 

501  SA; 

581 

64 

*SYS* 

9 

LOC  LOCKOUT 

ZERO  DATA  SETS 

RESET 

FREQ 

AVC 

SCNL 

TRIG 

CHAN  • 

RANGE 

AC,  DC 

CAL 

CENT  FREQ 

BU 

MAX  RATE 

CHAN  • 

FREQ 

START 
IM/RE 


SAVE 
6X 
3 
BU 

CHAN  « 
TRANS 
START 
IM'RE 
/ 


SAVE 
5X 

BU 

CHAN  « 

TRANS 

START 

IM/RE 

/ 

SAVE 

4X 

BU 

CHAN  « 

TRANS 

START 

IM'RE 

/ 

SAVE 

3X 

BU 

CHAN  « 

TRANS 

START 

IM/-RE 

/ 

SAVE 

2X 
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Ccmrand  File  "SHTCEL"  concluded 


65  "    TIE  IMPEDANCE  DATA  SETS 

66  #SYS»  11  X 

6?      »sys*  18  name  t 

68       gl;  gotc  local 


Camand  File  "FASZTR" 
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1 

ul; 

2 

♦  SYS* 

3 

8  RS; 

4 

3  FR; 

5 

28,1  flv; 

6 

2  SCj 

7 

1  TC; 

8 

8  CH; 

9 

. ikv   rg; 

18 

e  ac; 

11 

0hd  cf; 

12 

25.6KV   BU 

13 

MR; 

14 

ST; 

15 

l  tc; 

16 

l  fm; 

1/ 

IR; 

18 

-l  dv; 

19 

581  Sfl; 

28 

♦  SYS* 

21 

3.2KV   BU; 

22 

ST; 

23 

-1  DV; 

24 

581  Sfl; 

25 

♦  SYS* 

26 

256HD  BU; 

27 

ST; 

28 

-1  DV; 

29 

581  Sfl; 

38 

♦SYS* 

31 

25HD  Bu; 

32 

ST; 

33 

-1  Dv; 

34 

301  Sfl; 

35 

♦  SYS* 

36 

3.  125HD  BU 

37 

ST; 

38 

-l  Dv; 

39 

501  Sfl; 

48 

*SYS* 

41 

•  SYS* 

42 

♦  SYS* 

43 

Gl; 

28 
8 
3 
20,  1 

2 

1 

8 

.1V0LT 

0 

0HZ 

23.6KHZ 


1 
1 

-1 

381 

9 

3.2KHZ 

-1 
581 
9 
256HZ 

-1 
581 
9 
23HZ 

-1 

301 

9 

3.  123HZ 

-1 

301 

9 

11 

18 


LOC    LOCKOUT 

ZERO  DATA  SETS 

RESET 

FREQ 

AVG 

SGML 

TRIG 

CHAN  « 

RANGE 

AC, DC 

CENT  FREQ 

BU 

MAX  RATE 

START 

TRACE 

FORMAT 

IM/RE 

/ 

SAVE 

6X 

BU 

START 

/ 

SAVE 

5X 

BU 

START 

• 

SAVE 

4X 

BU 

START 

/ 

SAVE 

3X 

BU 

START 

SAVE 

2X 

X 

NAMETT 

GOTO  LOCAL 


Corroand  File  "FASAUT" 
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1 

ll; 

2 

♦  SYS* 

20 

3 

e  rs; 

0 

4 

2  fr; 

2 

5 

20,1  ftv; 

20,  1 

6 

2  sg; 

2 

7 

l  TC; 

1 

e 

0  ch; 

0 

9 

.  ikv   rg; 

.  1V0LT 

10 

e  ac; 

0 

i  i 

0HD  cf; 

0HZ 

12 

25.6KV   BU; 

25.6KHZ 

13 

MR; 

14 

ST; 

15 

l  tc; 

1 

16 

l  fm; 

1 

17 

ir; 

18 

, lea  my; 

,  100 

19 

501  Sfl; 

501 

26 

•  SYS* 

9 

21 

3.2KV   BU; 

3.2KHZ 

22 

ST; 

23 

,12.5  my; 

,12.5 

24 

501  Sfl; 

501 

25 

•  SYS* 

9 

26 

25SHD  BU; 

256H2 

27 

ST; 

28 

501  Sfl; 

501 

29 

•  SYS* 

9 

38 

25HD  BU; 

25H2 

31 

ST; 

32 

, .097656  MY; 

, .097656 

33 

501  Sfl; 

501 

34 

♦  SYS« 

9 

35 

3.  125HD  BW; 

3. 125HZ 

36 

ST; 

37 

,  .012207  MY; 

, .012207 

33 

501  Sfl; 

501 

39 

*SYS» 

9 

40 

♦  SYS* 

11 

41 

*SYS* 

18 

42 

gl; 

LOC  LOCKOUT 

ZERO  DATA  SETS 

RESET 

FREQ 

AVG 

SGNL 

TRIG 

CHAN  i 

RANGE 

AC, DC 

CENT  FREQ 

BU 

MAX  RATE 

START 

TRACE 

FORMAT 

IM/RE 

• 

SAVE 

6X 

BU 

START 

* 

SAVE 

5X 

BU 

START 

SAVE 

4X 

BU 

START 

♦ 

SAVE 

3X 

BU 

START 

* 

SAVE 

2X 

X 

NAMESG 

GOTO  LOCAL 
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Plotting  Command  Files 

PLDZTR  -  Plot  Difference  between  Impedance  Transfer  function: 

the  purpose  of  PIDZTR  is  to  provide  a  comprehensive  graphical  compar- 
ison between  a  theoretical  data  set  and  actual  data.  The  plot  is  auto- 
scaled  to  contain  the  theoretical  data  and  the  experimental  is  plotted 
as  an  overlay.  All  five  plot  formats,  Imaginary  vs.  Real,  Real  vs. 
Imaginary  x  Frequency,  Real  vs.  Imaginary/Frequency,  magnitude  vs. 
frequency,  and  phase  angle  vs.  frequency  are  plotted.  A  least  squares 
fit  is  made  of  the  straight  line  plots  and  an  equation  for  the  lines  is 
given.  An  analysis  is  then  performed  on  the  graphical  presentations 
to  show  what  each  of  them  pick  the  values  of  a  three-element  network 
fitting  the  experimental  data. 

Other  Plotting  Command  Files.  Other  plotting  command  sequences 
were  created  for  convenience.  The  PLAxxx  series  imply  the  plot  is 
auto-scaled.  The  PLOxxx  series  imply  that  0,0  is  the  lower  left-hand 
origin.  The  PLSxxx  series  imply  that  a  peculiar  scaling  was  used, 
etc.  The  last  three  digits  indicate  the  type  of  plot,  e.g.  ZTR, 
impedance  transfer  function;  IVR,  imaginary  vs.  real;  BOD,  Bode  plots, 
etc.  Listings  of  PLDZTR,  PLATVR,  PL01VR,  PLABOD  and  PLS  BOD  follow. 
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Command  File  "PLDZTR" 


i 

2 
3 
4 
3 

6 

7 

8 

9 

18 

11 

12 

13 

14 

13 

16 

17 

18 

19 

28 

21 

22 

23 

24 

23 

26 

27 

28 

29 

38 

31 

32 

33 

34 

33 

36 

37 

38 

39 

48 

41 

42 

43 

44 

43 

46 

47 

48 

49 

38 

31 

32 

53 

34 

33 

56 

57 

58 

39 

60 

61 

62 

63 

64 


12 

IMAGINARY  <OHMS) 

4.2 


//    ///////////////////    // 

/'    COMMAND  FILE  PLDZTR 

•  •  ///////////////////    // 

/'    AUTO  SCALE  THIS  PLOT  SERIES 

*SYS»  26 

8,9  8,8 

•SYS*  27 

8,8  8,8 

•  SYS*  28 
8,8  8,8 
*SYS*  29 
1,8  8,8 

'/  RECALL  THEORETICAL  DATA 

♦SYS*  19 

//  PLOT  THEORETICAL  DATA 

•  SYS* 

REAL  (OHMS) 
12 

//  RECALL  EXPERIMENTAL  DATA 
♦SYS*  19 

•  SYS*  43 
//  PLOT  EXPERIMENTAL  DATA 

•  SYS*  29 
3,8                   0,8 
♦SYS*  12 

REAL  <OHMS)  IMAGINARY  <OHMS> 

12  4,2 

"    AUTO  SCALE 

•SYS*  28 

8,0  8,0 

♦SYS*  29 

1,0  0,0 

//  RECALL  THEORETICAL  DATA 

•  SYS*  19 
//    PLOT  THEORETICAL  DATA 

*SYS* 

-IMAG*H2 

13 
//  RECALL  EXPERIMENTAL  DATA 

♦SYS*  19 

♦SYS*  43 

/■/  PLOT  EXPERIMENTAL  DATA 


13 

REAL 

4,2 


♦  SYS^ 
3,0 
•SYS* 
-IMAG^HZ 
13 

'/  LEAST  SQUARES  FIT 

♦  SYS^ 

♦  SYS^ 
0,0 

♦  SYS^ 
0,0 

♦  SYS* 
-IMAG*HZ 
13 

//  AUTO  SCALE 
*SYS* 
0,0 

♦  SYS* 
1,0 

"    RECALL  THEORETICAL  DATA 


29 

0,0 

13 

REAL 

4,2 

38 

28 

8,8 

29 

8,8 

13 

REAL 

4,2 

28 
8,0 
29 
8,8 


19 


PLOT  LIMITS 
ENDSYS  PLOT 
PLOT  LOCATION 
ENDSYS  PLOT 
PLOT  SCALE 
ENDSYS  PLOT 
AXIS  FLAG 
ENDSYS  PLOT 

THEODA 

TIED-DATA 
CELL  IMPEDANCE 
ENDSYS  PLOTS 


AXIS  FLAG 
ENDSYS  PLOT 
TIED-DATA 
CELL  IMPEDANCE 
ENDSYS  3,4,5,6, 

PLOT  SCALE 
ENDSYS  PLOT 
AXIS  FLAG 
ENDSYS  PLOT 

THEODA 

TIED-DATA 
CELL  IMPEDANCE 
ENDSYS  PLOTS 


AXIS  FLAG 
ENDSYS  PLOT 
TIED-DATA 
CELL  IMPEDANCE 
ENDSYS  3,4,3,6,7,3 

LEAST  SQ. 
PLOT  SCALE 
ENDSYS  PLOT 
AXIS  FLAG 
ENDSYS  PLOT 
TIED-DATA 
CELL  IMPEDANCE 
ENDSYS  PLOTS 

PLOT  SCALE 
ENDSYS  PLOT 
AXIS  FLAG 
ENDSYS  PLOT 

THEODA 


//  PLOT  THEORETICAL  DATA 
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Comrand  File  "PLDZTR"  continued 


65 
66 

6? 

68 

69 

70 

71 

72 

73 

74 

73 

76 

77 

78 

79 

88 

81 

82 

83 

84 

85 

86 

87 

88 

89 

98 

91 

92 

93 

94 

93 

96 

97 

98 

99 

188 

131 

182 

183 

184 

185 

186 

187 

188 

189 

118 

111 

112 

1  13 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 


♦  SYS* 

-IMAG/HZ 

14 


14 

REAL 

4,2 


"    RECALL  EXPERIMENTAL  DATA 


19 
45 

29 

0,8 

14 

REAL 

4,2 

30 

28 

0,0 

29 

0,0 
14 

REAL 
4,2 

28 
0,8 
29 
8,0 


24 


*SYS* 
»SYS» 
/v  PLOT  EXPERIMENTAL  DATA 

•  SYS* 
3,0 

•  SYS* 
-IMAC/-H2 
14 

"    LEAST  SQUARES  FIT 

•  SYS* 

•  SYS* 
0,0 

•  SYS* 
0,0 

•  SYS* 
-INAG'HZ 
14 

//  AUTO  SCALE 

•  SYS» 
0,0 

•  SYS* 
1,0 

<"  RECALL  THEORETICAL  DATA 

•SYS*  19 

•/  PLOT  THEORETICAL  DATA 

•  SYS* 

LOG  FREQUENCY 
24 

//  RECALL  EXPERIMENTAL  DATA 

♦SYS*  19 

♦SYS*  43 

"    PLOT  EXPERIMENTAL  DATA 

♦SYS*  29 

3,0  0,0 

•SYS*  24 

LOG  FREQUENCY  LOG  MAGNITUDE  <DB> 

24  4,2 

//  AUTO  SCALE 

•SYS»  28 

0,0  0,0 

•SYS*  29 

1,0  0,0 

'/  RECALL  THEORETICAL  DATA 

♦SYS*  19 

/v  PLOT  THEORETICAL  DATA 

♦SYS*  17 

LOG  FREQUENCY  PHASE  ANGLE  CDEG) 

17  4,2 

"  RECALL  EXPERIMENTAL  DATA 

*SYS*  19 

♦SYS*  43 

"    PLOT  EXPERIMENTAL  DATA 

♦SYS*  29 

3,0  0,0 

♦SYS*  17 


LOG  MAGNITUDE  (DB> 
4,2 


17 
*SYS< 


4,2 
43 


TIED-DATA 
CELL  IMPEDANCE 
ENDSYS  PLOTS 


AXIS  FLAG 
ENDSYS  PLOT 
TIED-DATA 
CELL  IMPEDANCE 
ENDSYS  3,4,5,6, 

LEAST  SQ. 
PLOT  SCALE 
ENDSYS  PLOT 
AXIS  FLAG 
ENDSYS  PLOT 
TIED-DATA 
CELL  IMPEDANCE 
ENDSYS  PLOTS 

PLOT  SCALE 
ENDSYS  PLOT 
AXIS  FLAG 
ENDSYS  PLOT 

THEODA 


CELL  IMPEDANCE 
ENDSYS  PLOTS 


AXIS  FLAG 
ENDSYS  PLOT 

CELL  IMPEDANCE 
ENDSYS  3,4,5,6, 

PLOT  SCALE 
ENDSYS  PLOT 
AXIS  FLAG 
ENDSYS  PLOT 

THEODA 

TIED-DATA 
PHASE  RESPONSE 
ENDSYS  PLOTS 


AXIS  FLAG 
ENDSYS  PLOT 
TIED-DATA 

ENDSYS  PLOTS 
ANALYSIS 
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Canrrand  File  "PLAIVR" 


i 

2 
3 
4 
5 

6 

7 

8 

9 

18 

11 

12 

13 

14 

13 

16 

17 

18 

19 

29 

21 

22 

23 

24 

23 

2(5 

27 

28 

29 

38 

31 

32 


///////////////////  // 
COMMAND  FILE  PLAIVR  •/ 
///////////////////  // 
AUTO  SCALE  THIS  PLOT  SERIES 

♦  SYS* 
8,0 

♦  SYS* 
8,8 

♦  SYS* 
8,8 

♦  SYS* 
8,8 
RECALL  EXPERIMENTAL  DATA  SET 

♦  SYS* 
REMOVE  68  HZ  HARMONICS 

♦  SYS* 


♦  SYS* 
1,8 

♦  SYS* 

REAL  (OHMS) 
12 
RECALL  THEORETICAL  DATA 

♦  SYS* 
REMOVE  68  H2  HARMONICS 

♦  SYS* 
PLOT  THEORETICAL  DATA 

♦  SYS* 
3,8 

♦  SYS* 


26 

PLOT  LIMITS 

8,8 

ENDSYS  PLOT 

27 

PLOT  LOCATION 

8,8 

ENDSYS  PLOT 

28 

PLOT  SCALE 

8,8 

ENDSYS  PLOT 

29 

AXIS  FLAG 

8,8 

ENDSYS  PLOT 

TA  SET 

19 

NAMETT 

44 

HARMONICS 

N  THE  REGION 

OF 

INTEREST 

29 

AXIS  FLAG 

8,8 

ENDSYS  PLOT 

12 

TIED-DATA 

IMAGINARY 

(OHMS) 

CELL  IMPEDANCE 

*»2 

A 
19 

ENDSYS  3,4,5,6,7,8 

THEODA 

44 

HARMONICS 

29 

AXIS  FLAG 

8,0 

ENDSYS  PLOT 

12 

TIED-DATA 

12 


4,2 


ENDSYS  PLOTS 
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Cenmand  File  "PL01VR" 


i 

2 

3 
4 
5 
6 
7 
8 
9 

le 
n 

12 
13 

14 
15 
IS 
17 
18 
19 
28 
21 
22 
23 
24 
23 
26 
2? 
28 
29 
38 
31 
32 


//  ///////////////////  // 
'/  COMMAND  FILE  PL8IVR  /• 
//  ///////////////////  // 
//    QUADRANT  SCALE  THIS  PLOT  SERIES 

♦  SYS* 
8,8 

♦  SYS* 
8,8 

♦  SYS* 

♦  i* 

♦  SYS* 

a, a 

"    RECALL  EXPERIMENTAL  DATA  SET 

♦  SYS* 
//  REMOVE  68  HZ  HARMONICS 

♦  SYS* 
/■/  PLOT  COMBED  DATA  SET  I 

♦  SYS* 
1,8 

♦  SYS* 

REAL  (OHMS) 
12 

"    RECALL  THEORETICAL  DATA 

♦  SYS* 
//    REMOVE  68  H2  HARMONICS 

♦  SYS* 
//    PLOT  THEORETICAL  DATA 

♦  SYS* 

a,  a 

♦  SYS* 


26 

PLOT  LIMITS 

8,8 

ENDSYS  PLOT 

27 

PLOT  LOCATION 

8,8 

ENDSYS  PLOT 

28 

PLOT  SCALE 

*,8 

ENDSYS  PLOT 

29 

AXIS  FLAG 

a, a 

ENDSYS  PLOT 

TA  SET 

19 

NAMETT 

44 

HARMONICS 

N  THE  REGION 

OF 

INTEREST 

29 

AXIS  FLAG 

8,8 

ENDSYS  PLOT 

12 

TIED-DATA 

IMAGINARY 

(OHMS) 

CELL  IMPEDANCE 

4,2 

fl 
19 

ENDSYS  3,4,5,6 

THEODA 

44 

HARMONICS 

29 

AXIS  FLAG 

8,8 

ENDSYS  PLOT 

12 

TIED-DATA 

12 


4,2 


ENDSYS  PLOTS 
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Contend  File  "PLABOD" 


1 

2 

3 

4 

5 

6 

7 

8 

9 

19 

11 

12 

13 

14 

15 

IS 

17 

18 

19 

20 

21 

22 

23 

24 

23 

26 

2? 

28 

29 

30 

31 

32 

33 

34 

33 

36 

3? 

38 

39 

48 

41 

42 

43 

44 

45 

46 

4? 

48 

49 

38 

31 

32 

33 

34 

33 

56 


//  ///////////////////  // 
/'  COMMAND  FILE  PLABOD  •• 
//  ///////////////////  // 
/s    AUTO  SCALE  THIS  PLOT  SERIES 

0,3  0,0 

♦SYS*  27 

e.a  8,0 

♦SYS*  28 

0,0  8,0 

♦  SYS^  29 
8,8  8,8 

f    RECALL  EXPERIMENTAL  DATA  SET 

♦SYS^  19 

••  REMOVE  68  HZ  HARMONICS 

♦  SYS^  44 
//  PLOT  MAGNITUDE 

♦SYS^  29 

1,8  8,8 

•SYS^  24 

LOG  FREQUENCY  LOG  MAGNITUDE 

24  4,2 

//  RECALL  THEORETICAL  DATA 

♦SYS^  19 

'/    REMOVE  68  HZ  HARMONICS 

♦SYS^  44 

//    PLOT  THEORETICAL  DATA 

♦SYS^  29 

3,8  8,8 

»SYS»  24 

24  4,2 

//    AUTO  SCALE 

♦SYS^  28 

8,8  8,8 

♦SYS^  29 

8,8  8,8 

//    RECALL  EXPERIMENTAL  DATA 

♦SYS^  19 

//    REMOVE  68  HZ  HARMONICS 

♦SYS^  44 

//    PLOT  PHASE  ANGLE 

♦SYS^  29 

1,8  8,0 

♦SYS^  17 

LOG  FREQUENCY  PHASE  ANGLE  <DEG> 

17  4,2 

"    RECALL  THEORETICAL  DATA 

♦SYS^  19 

//    REMOVE  60  HZ  HARMONICS 

♦SYS^  44 

//    PLOT  THEORETICAL  DATA 

♦SYS^  29 

3,8  8,8 

♦SYS+  17 


ENDSYS  PLOT 
PLOT  LOCATION 
ENDSYS  PLOT 
PLOT  SCALE 
ENDSYS  PLOT 
AXIS  FLAG 
ENDSYS  PLOT 

NAMETT 


AXIS  FLAG 
ENDSYS  PLOT 


CELL  IMPEDANCE 
ENDSYS  PLOTS 


17 


4,2 


THEODA 
HARMONICS 


AXIS  FLAG 
ENDSYS  PLOT 


ENDSYS  PLOTS 

PLOT  SCALE 
ENDSYS  PLOT 
AXIS  FLAG 
ENDSYS  PLOT 

NAMETT 

HARMONICS 

AXIS  FLAG 
ENDSYS  PLOT 
TIED-DATA 
PHASE  RESPONSE 
ENDSYS  PLOTS 

THEODA 

HARMONICS 

AXIS  FLAG 
ENDSYS  PLOT 
TIED-DATA 

ENDSYS  PLOTS 
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Canrand  File  "PLSBOD" 


1 

// 

/////////////s///// 

/  / 

2 

// 

COMMAND 

FILE  PLSBOD 

/  / 

3 

/  / 

/////////////////// 

/  / 

4 

/  / 

AUTO  SCALE  THIS 

PLOT 

SERIES 

3 

0,0 

0,0 

6 

*SYS» 

27 

7 

0,0 

0,0 

8 

♦  SYS* 

28 

9 

0,0 

0,0 

19 

♦  SYS* 

29 

11 

0,0 

0,0 

12 

/  / 

RECALL 

EXPERIMENTAL 

DATA  SET 

13 

♦  SYS* 

19 

14 

/  / 

REMOVE 

60  HZ  HARMONICS 

13 

♦  SYS* 

44 

16 

/  / 

PLOT  MAGNITUDE 

17 

•  SYS* 

29 

18 

1,0 

0,0 

19 

•  SYS* 

24 

20 

LOG  FREQUENCY 

LOG  MAGNITUDE 

21 

24 

4,2 

22 

/ / 

SMOOTH 

DATA  AND 

PLOT 

AGAIN 

23 

»SYS» 

37 

24 

•  SYS* 

29 

25 

3,0 

0,0 

26 

♦  SYS* 

24 

27 

28 

24 

4,2 

29 

/  / 

RECALL 

EXPERIMENTAL 

DATA 

38 

♦  SYS* 

19 

31 

/  / 

REMOVE 

60  HZ  HARMONICS 

32 

♦  SYS* 

44 

33 

// 

PLOT  PHASE  ANGLE 

34 

•  SYS* 

28 

35 

0,0 

0,0 

36 

•  SYS* 

29 

37 

1,0 

0,0 

38 

♦  SYS* 

17 

39 

LOG  FREQUENCY 

PHASE  ANGLE  <DEG> 

40 

17 

4.2 

41 

// 

SMOOTH 

DATA  AND 

PLOT  RGAIN 

42 

*SYS* 

37 

43 

•  SYS* 

29 

44 

3,0 

0,0 

43 

•  SYS* 

17 

46 

47 

17 

4.2 

ENDSYS  PLOT 
PLOT  LOCATION 
ENDSYS  PLOT 
PLOT  SCALE 
ENDSYS  PLOT 
AXIS  FLAG 
ENDSYS  PLOT 

NAMETT 


AXIS  FLAG 
ENDSYS  PLOT 

CELL  IMPEDANCE 
ENDSYS  PLOTS 

10 

AXIS  FLAG 

ENDSYS  PLOT 


ENDSYS  PLOTS 

NAMETT 

HARMONICS 

PLOT  SCALE 
ENDSYS  PLOT 
AXIS  FLAG 
ENDSYS  PLOT 
TIED-DATA 
PHASE  RESPONSE 
ENDSYS  PLOTS 

10 

AXIS  FLAG 

ENDSYS  PLOT 

TIED-DATA 

ENDSYS  PLOTS 
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System  Codes 

The  system  codes  were  mentioned  in  Table  D-l.  There  are  a 
series  of  numbers  used  in  the  command  files  to  indicate  that  a  particular 
plotting  format  or  type  of  analysis  is  to  be  generated.  Most  of  the 
codes  are  inserted  simply  by  answering  the  prompts  from  the  main  pro- 
gram. They  may  also  be  inserted  into  a  command  file  using  the  edit 
mode  (Key  9)  and  responding  with  "Q"  when  asked  whether  one  wishes  to 
insert  or  replace  a  line.  The  computer  will  respond  with  three  input 
prompts.  The  respective  inputs  should  be  *SYS*,  system  code  number 
and  any  word  which  explains  the  purpose  of  the  code.   (The  last  input 
is  for  comment  on  the  command  file  listing.)  Table  D-3  lists  the 
functions  of  the  various  system  codes. 
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TABLE  D-3  SYSTEM  CODES 

PREFIX  CODE  FUNCTION 

*SYS*  1  LABEL  ON  PLOTTER 

*SYS*  2  FILENAME  ON  PLOTTER 

*SYS*  3  SEMILOG  ARRAY  PLOT 

*SYS*  4  SEMILOG  START/STEP  PLOT 

*SYS*  5  SEMILOG  IMAG*HZ  PLOT 

*SYS*  6  LINEAR  ARRAY  PLOT 

*SYS*  7  LINEAR  START/STEP  PLOT 

*SYS*  8  LINEAR  IMAG*HZ  PLOT 

*SYS*  9  SAVE  SHORT  DATA  SET 

*SYS*  10  RECALL  SHORT  DATA  SET 

*SYS*  11  TIE  DATA  FILES 

*SYS*  12  TIED  DnvsRe  PLOT 

*SYS*  13  TIED  Re  vs  Im*Hz  PLOT 

*SYS*  14  TIED  Re  vs  Hr/Hz  PLOT 

*SYS*  15  TIED  COHERENCE  PLOT 

*SYS*  16  TIED  S/N  PLOT 

*SYS*  17  TIED  PHASE  PLOT 

*SYS*  18  SAVE  TIED  DATA  SET 

*SYS*  19  RECALL  TIED  DATA  SET 

*SYS*  20  CREATE  ZEROED  SHORT  DATA  SETS 

*SYS*  21  RENAME  SHORT  DATA  SETS 

*SYS*  22  SWAP  REAL  AND  IMAGINARY  ARRAYS 

*SYS*  23  SCALE  REAL  AND  IMAGINARY  ARRAYS 

*SYS*  24  BODE  PLOT 
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Table  D-3 — continued. 
PREFIX       CODE  FUNCTION 


*SYS* 

25 

*SYS* 

26 

*SYS* 

27 

*SYS* 

28 

*SYS* 

29 

*SYS* 

30 

*SYS* 

31 

*SYS* 

32 

*SYS* 

33 

*SYS* 

34 

*SYS* 

35 

*SYS* 

36 

*SYS* 

37 

*SYS* 

38 

*SYS* 

39 

*SYS* 

40 

*SYS* 

41 

*SYS* 

42 

*SYS* 

43 

*SYS* 

44 

*SYS* 

45 

*SYS* 

46 

SET  PLOT  SCALE  LIMITS  FROM  LAST  PLOT 

SET  PLOT  LIMITS  FOR  UNIT 

SET  PLOT  LOCATION  ON  UNIT 

SET  PLOT  SCALE  FACTOR 

SET  AXIS  FLAG 

ENABLE  LEAST  SQUARES  FIT  ON  DATA 

ENABLE  POLYNOMIAL  FIT  ON  DATA 

SMOOTH  REAL  SHORT  DATA 

SMOOTH  IMAGINARY  SHORT  DATA 

SMOOTH  BOTH  SHORT 

SMOOTH  REAL  TIED 

SMOOTH  IMAGINARY  TIED 

SMOOTH  BOTH  TIED 

MOVE  SHORT  DATA  TO  TIED  DATA 

DELETE  FILES 

VOLTAGE  HISTOGRAM 

ENABLE  CURSOR  FOR  EXAMINATION  OF  DATA 

SET  REGION  OF  INTREST  ON  NEXT  PLOT 

ENABLE  ANALYSIS 

REMOVE  60  HZ.  HARMONICS 

ENABLE  LOCAL  ANALYSIS 

SHORTEN  A  LONG  TIED  DATA  SET 
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GRAFIT 
Analysis  capability  for  three-element  networks  is  built  into  the 
main  program  for  the  HP9845.  However,  when  the  author  performed  the 
analysis  on  the  430  stainless  steel  experiments,  he  realized  that  a 
five-element  network  model  would  be  required.  Since  he  no  longer  had 
access  to  an  HP9845,  a  BASIC  program  was  written  compatible  with  an 
HP85  microcomputer  and  HP7225  graphics  plotter.  This  program,  entitled 
GRAFIT,  is  actually  a  generic  plotting  program  which  creates  camera- 
ready  plots  in  linear  or  semi-logarithmic  format  which  accepts  data 
stored  on  tape,  entered  as  x,  y  pairs,  or  generated  by  an  appropriate 
function  subroutine.  In  this  case,  the  function  subroutine  generates 
the  real  and  imaginary  parts  of  the  network  impedance  as  a  function  of 
frequency.  A  listing  of  GRAFIT  follows. 
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"GRAFIT"  Program  Listing 


1 0  i^LcihK 

15  PLOTTER  IS  705 

20  OPTION  BASE  1 

25  DIM  D*C13,B*C1  ],Q»C1  '2  ,  LSC  15].  I  (251)  ,  J  <.2t 

30  D*="0" 

31  R*="NEW" 
35  D!  =  lo 

40  DISP  l:  *******#****************'***  *****  " 

45  DISF  "**X******PRQGRAM  GRAF  IT******* ** " 

50  DISP  "********************************' 

55  DISP 

60  DISP  "      GRAFIT  CREATES  CAMERA-READY  ' 

65  DISF  "GRAPHS  ON  THE  HP7225  PLOTTER." 

70  DISP  "YOU  MAY  PRODUCE  THE  GRAF H ICE  IN" 

75  DISP  "EITHER  AN  INTERACTIVE  MODE  OR  By"1 

SO  DISF  "USING  A  DEFAULT  MODE  wHICK  GIVES" 

85  DISP  "YOU  A  PARTICULAR  FORMAT.    IF  YOU" 

90  DISF  "HAVE  NOT  ALREADY  DONE  SO.  TURN" 

95  DISP  "ON'  THE  PLOTTER  AND  PLACE  A  " 

100  DISP  "PIECE  OF  PAPER  ON  THE  PLOTTING" 

105  DISP  "SURFACE.  " 

HO  DISF  "IF  YUU  UISH  TO  OPERATE  IN  THE" 

113  DISP  "DEFAULT  MODE.  PRESS  '  V*  :     IF  -QL;" 

130  DISP  "WISH  TO  INTERACT  THEN  PRESS  AN'  '■ 

125  DISP  "OTHER'  CHARACTER." 

130  INPUT  D* 

135  IF  D*="D"  THEN  GOTO  745 

140  CLEAR 

143  DISP   "  ******  *******************  ****-**" 

150  DISP  "*********SRAPHICS  r  LAN****  *  ***  *  " 

155  DISP  "*******************#****:******.* 

160  DISP 

165  DISP  "PAPER  DIMENSIONS  IN  INCHES" 

170  D ■ SP  "      HORIZONTAL?1 

175  INPUT  H 

ISO  DISr  ■       VERTICAL?" 

135  INPUT  V 

190  CLEAR 

195  DISP  "MARGINS" 

200  LISP  "'INCHES  FROM  RESPECTIVE  EDGE" 

105  DISF  "       TOP"" 

210  INPUT  Tl 

213  DISF  "      BOTTOM?" 

220  INPUT  Bl 

225  DISP  "      RIGHT?" 

230  INPUT  Rl 

275  DISP  "      LEFT?" 

240  INPUT  LI 

245  CLEAR   • 

250  DISP  "GRID  FLACcMENT" 

255  DISP  "(INCHES  FROM  RESPECTIVE  MARGIN) ' 

260  DISP  "       TOP?" 

265  INPUT  T2 

270  DISP  "      BOTTCM?" 

275  INPUT  B2 

2S0  DISF  "       RIGHT?" 

233  INPUT  F2 

290  DISF  "       LEFT"" 

295  INPUT  L2 


230 


"GRAFIT"  Program  Listing — continued. 


300 

CLEAR 

305 

DISP 

•FRAME  THE  GRID  AREA?  <Y  OF:  N!  " 

310 

INPUT 

GS 

315 

CLEAR 

320 

DISP 

**************AXS3*****  ******** 

325 

DISP 

'SCALING" 

330 

DISP 

XAXIS" 

335 

DISP 

i_DG  SCALE?  (Y  OR  N;  " 

340 

INPUT 

Ql* 

345 

DISP 

XMIN"" 

350 

INPUT 

x : 

w55 

DISF 

• 

XMAX?" 

360 

INPUT 

X2 

365 

DISF 

/AXIS  INTERCEPT" 

370 

INPUT 

13 

375 

DISP 

1H 

A  IS" 

380 

DISP 

LOG  SCALE';1  (Y  OR  N;  " 

38  5 

INPUT 

Q2S 

390 

DISP 

YMIN" 

395 

INPUT 

Yl 

400 

DISP 

YMttX" 

405 

INPUT 

Y2 

410 

DISP  ' 

XAXIS  INTERCEPT" 

4  15 

INPUT 

14 

420 

CLEAR 

425 

DISP 

'TIC 

MARKS" 

430 

DISP  ' 

XA 

XIS  MAJOR  DIVISIONS" 

43;; 

INPUT 

I  1 

44U 

DISF 

#  MINOR  TICS/MAJOR  TIC"" 

445 

INPUT 

15 

450 

LISP  ' 

Yh 

XIS  MAJOR  DIVISIONS" 

455 

INPUT 

12 

4o0 

DISP  ' 

*  MINOR  TICS,' MA  J  OP   riC" 

4a5  INPUT  16 

47U  IF  Dl  =-3  THEN  GOTO  830 

475  CLEAR 

480  !  NUMERIC  AXIS  LABELING 

435  DIS=  "AXIS  LABEL ING-NUMERIC" 

490  DISP  "   CHARACTER  SIZE" 

495  DISF  "       CHARACTER  HT-  V.    OF  GRID  HT" 

500  INPUT  C3 

505  DISP  "       CHAR  ASPECT  RATIO  (W/H) " 

510  INPUT  Al 

515  DISP  "'      CHAR  SLANT  (DE3  TO  VERT) " 

520  INPUT  58 

525  DISP  "   LABEL  LOCATION" 

530  DISP  "      XLAEEL3  ABOVE  OR  BELOW  GRID" 

535  INPUT  03S 

540  DISP  "       YLABELS  LEFT  OR  RIGHT  OF  GRI 

545  INPUT  04* 

550  CLEAR 

555  :  ALPHANUMERIC  AXIS  LABELING 

560  DISP  "AXIS  TITLES" 

5o5  DISF  "   CHARACTER  SIZE" 

570  DISP  "       CHARACTER  HT-  7.  OF  GRID  HT" 

575  INPUT  C7 

530  DISF  "       CHAR  ASPECT  RATIO  (W/H)  " 

535  INPUT  A2 

590  DISP  "       CHAP  SLANT  (DEG  TO  VERT;" 

595  INPUT  S7 


OR  B> 

:l  of. 
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600  CLEAR 

605  D15F  "   XAXIS  TITLE  (<15  CHAR)" 

610  INPUT  XS 

615  DISP  "      TITLE  ABOVE  OR  BELOW  GRID?" 

620  DISP  "       (A  OR  B?) " 

625  INPUT  05* 

630  CLEAR 

635  DISF  "   YAXIS  TITLE  (<15  CHAR)" 

640  INPUT  Y* 

645  DISP  "      TITLE  LEFT  OP  RIGHT  OF  GRID" 

650  DISP  "       (L  OR  R?) " 

o55  INPUT  Q6* 

660  CLEAR 

o65  DISF  "PLOT  TITLE" 

670  DISP  "   CHARACTER  SIZE" 

675  DISF  "      CHARACTER  HT  -  7.    OF  GRID  HT" 

680  IN='UT  C6 

685  DISP  "      CHAR  ASPECT  RATIO  CW/H)  " 

690  INPUT  A3 

695  DISP  "CHAR  SLANT  (DE3  TO  VERT)" 

700  INPUT  S6 

705  DISF  "  TITLE  VERBAGE-7   <<15  CHAR)" 

710  INPUT  TI 

715  DISF  "   TITLE  ABOVE  OR  BEI-OW  GRID" 

720  DISP  "    (A  OR  B") " 

725  INPUT  G7$ 

730  GOSUB  1060 

735  GOSUB  1575 

740  GOSUB  1995 

745  CLEAR 

750  DISP  "YOU  HAVE  THE  FOLLOWING  CHOICES" 

755  DISP  "WITH  REGARD  TO  PLOT  FORMAT:" 

756  DISF  "       0.   GRID  PLOTTED;  NEW  DATA." 
760  DISP  "       1.   SAME  PLOT  FORMAT;" 

765  DISP  "       NEW  DATA. " 

770  DISF  "      2.   SAME  PLOT  FORMAT:" 

775  DIS~  "       NEW  SCAI_E,  NEW  DATA." 

7S0  DISF  "      3.   USER  SPECIFIED  FORMAT" 

7S5  DISP 

790  DI5F  "   WHICH  DO  YOU  WANT^    10,1,2,3)" 

795  INPUT  Dl 

796  Dl=Dl-*-l 

SOO  IF  Dl=4  THEN  GOTO  945 

805  ASSIGN*  1  TO  "PLTDAT: D700" 

S  10  READ**  1  ;  H,  V  .  TT  ,  B  1  ,  R  1  ,  LI  ,  T2,  32,  F:2.  L2  .  B*  .  0  1  *  .  '•'  1  .  X2,  13  ,  C2- 

16, ca, ai.ss 

815  READ*  1  ;  Q3*, Q4S, C7, A2, 57, XS , C5*. YS, Qof, C6, A3. 56, T*, Q~"» 

820  ASSIGN*  1  TO  * 

821  RS="OLD" 

S22  IF  Dlttl  THEN  SOTO  325 
823  GOSUB  1575 

324  GOSUB  1995 

325  IF  Dl=3  THEN  GOTO  315 
330  GOSUB  1060 

835  GOSUB  1575 

S40  GOSUB  1995 

B45  CLEAR 

335  DISP  "WHAT  IS  THE  NAME  OF  THE  FILE" 

890  DISP  "WHICH  SPECIFIES  THE  DESIRED" 

895  DIS?  "FORMAT?   INCLUDE  STORAGE  DEVICE-" 

900  DISP  "DESIGNATOR." 
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905  INPUT  F* 

910  ASSIGN*, 1  TO  Ft 

915  READ*  1  ;  H,  V,  Tl ,  Bl ,  Rl ,  Li  ,  T2,  82,  R2,  L2,  3*,  31* ,  X 1 ,  X2,  J': 

16, CS, Al , SB 

920  READ*  1  ;  Q3», Q4S,  C7,  A2, S7, X», Q5*, Y$, Q&*. C6, A3, 36, T*. 

925  ASSIGN*  1  TD  * 

93.0  SCSUB  1060 

935  GCSUB  1575 

940  GCSUB  1995 

945  !  PLOT  SQUARE 

950  I PLOT  -S5*S1*I 1*P2/ (200*F 1) ,35*32*12/200, -2 

955  IPLOT  S5*SI*I1*P2/ « 100*P1) .0, -1 

^60  IPLOT  0, -S5*S2* 12/100. -1 

965  IPLOT  -35*51*1  1  *P2/  <.  100*P1  )  ,0,-1 

970  IP_OT  0,S5*S2* 12/100,-1 

975  IFLOT  S5*S1*I1*P2/(200*P1) , -S5*S2* 12/200,  -2 

9&0  RETURN 

9S5  !  PLOT  TRIANGLE 

990  IPLOT  -55*S1*I  1*P2/ <200*F'i  )  . -35*32*  I2/34-. -2 

995  IPLOT  SS*S1*I1*P2/ (100*P1) ,0, -1 

1000  IPLOT  -35*51*1 1*P2/ ■ 200*P1 ) , S5*32* 12/ 1 i5. -1 

1005  IPLOT  -S5*S1*I1*P2/ (200*P1) , -S5*S2*I2/1 15.-1 

1010  IPLOT  S5*S1*I 1 *P2/ (2QO*Pl >  , S5*S2* 12/347, -2 

1015  RETURN 

1020  '  PLOT  DIAMOND 

1025  IPLOT  0,-S5*S2*I2/141 ,-2 

103O  IPLOT  S5*51*11*P2/ ( 141*Pn ,55*32*12/141,-1 

1035  IPLOT  -S5*S1*I 1*P2/  (141*F1  )  ,S5*S2* :2/  141 . -1 

1040  IPLOT  -S5*S1*I1*P2/ ( 141*P1 )  , -S5*G2* 12  '141 , -1 

1045  IPLOT  35*S1* I1*P2/ :i41*Pl ) , -S5*32*I 2/ 1 41 , -5 

1050  IPLOT  0,S5*S2*I2/141 .-2 

1055  RETURN 

106O GRID  PLOTTING'  !  !  !  '  ! 

1061  PRINT  H;  V:  Tl.-Bl  ;R1;L1;  T2;B2:R2:  u2 

1065  01=IP(H*25.4-5> 

1070  02=IFCV*25.4-3) 

1075  03=IP(Ll*25.4-5) 

lOS'.i  04  =  IP  (81*25.4-30 

1095  05= IP ( 01 -R 1*25. 4i 

1090  Oo= IP (02-71*25. 4) 

1095  F 1=05-03 

1100  P2=06-04 

1105  IF  P1>F2  THEN  GOTO  1133 

1110  P3=IP(L2*2540/P1) 

1115  P4=IP(B2*2540/F1 ) 

1120  P5=100-IF(R2*2540/F1 ) 

1125  F'6=100/RATI0-IF  (T2*254C/P1  ) 

1130  GOTO  1155 

1135  P3=IP(L2*2540/P2) 

1140  P4=IP (B2*2540/P2) 

1 145  P5=RAT I0*100-IP(R2*2540/F2> 

1150  P6=100-IP(T2*2540/P2) 

1151  PRINT  01 ;02:03;04: 05:06 

1152  FRINT  P1;P2;P3:P4;P5;P6 
1155  LIMIT  03,05,04,06 

1160  LOCATE  P3,P5,P4,P6 

1165  IF  GS="N"  THEN  GOTO  1175 

1170  FRAME 

1175  IF  Q15="N"  THEN  GOTO  1190 

1176  IF  RS="OLD"  THEN  GOTO  1190 
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ISO  X1=LDG (XI) /L03( 10) 
135  X2=L0G(X2) /LQG( 10) 
186  I4=L06( 14) /LOG i 10) 

190  IF  <32*»"N"  THEN  GDTD  1200 

191  IF  R$="CLD"  THEN  GOTO  S.2O0 

195  Y1=L0B(Y1) /LDGC10) 

196  Y2=L0SCY2> /LQGUO) 

197  I3=L0GCI3)/LGG(10) 
200    Sl= (X2-X 1) /LI 

205  S2= < Y2-Y1 ) / 12 
210  DEB 

215  SCALE  XI , X2, Yl , Y2 

220  CSIZE  CS.A1.38 

225  AXES  SI, S2. 14. 13, 15, 16 

27'"-  IF  G3*="A"  THEN  GDTD  13X0 

235  LORG  6 

240  FOR  X=X1  TO  X2  STEP  SI 

245  IF  QI*="N"  ""HEN  GDTD  1225 

250  riOVE  X,  vi-CS/  120*S2*I2 

255  LA3EL  "10" 

260  i_GRG  3 

265  MOVE  »A1*CS/60*S1*I i /RATIO. \ 1-CS- 2. 

206  IF  X  O  THEN  IMOVE  - 67*A1 *C3 .  60* :  =  1  *  1 . 
270  CSIZE  . 67*C3, A! ,58 

2~5  LABEL  IF (XI 

230  GOTO  1290 

235  MOVE  >. ,  Y  1  -Cfci  /  200  .'62*12 

286  LABEL  X 

290  C?IZE  CE.A1.SF 

295  LORG  6 

300  NEXT  x 

2-05  GjTO  1380 

310  LOKG  4 

3  15  FDR  >=X1  TO  -\2  51  EF  S', 

320  IF  Q1*="N'   THEN  GOTO  136! . 

325  MOVE  X,Y2+CS/ 120*52*12 

330  uABEL  "10" 


340  MOVE  X+Al*C3/'aO*Sl  *  I  i  'RATIO,  Y1+u"3/2Gvj*S2»  I  - 

341  IF  X<u  THEN  IMOVE  .  6"'*Al  *C3/60*3i  *  II  /FA"  IG, 
345  CSIZE  .67*C3,Al,Sa 

350  LABEL  IP(X, 

355  GOTO  1365 

360  MOVE  X, Y2+CS/200*S2*I2 

36  1  LABEL  X 

365  CSIZE  CS.A1.S8 

370  LORG  4 

375  NEXT  X 

3S0  IF  Q4S="R"  THEN  GOTO  1415 

335  LORG  S 

390  FOR  Y=Y1  TO  Y2  STEP  S2 

391  IF  Q2*="N'   THEN  GOTO  1400 

392  MOVE  Xl-CE#Al/£0*S2 *I1/RATIQ,Y 

393  LABEL  "10" 

394  LORG  1 

3C^5  1  MOVE  A 1  *CS / 60*5  1*11/ RAT  10 ,  CS/ 200 *  22 <  I  2 
"96  IF  Y<0  THEN  IMOVE  . 67* Al *C3/60*31 *  1 1 /RAT  I  2 . 
397  CSIZE  . 67*CS.A1, 33 

139S  LABEL  'IF'(Y) 

1399  GOTO  1402 
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1400  MOVE  Xl-C3*A1/266*S1*11/RA7IC, Y 

1401  LABEL  Y 

1402  C3IZE  CS,A1,S3 

1403  LORG  9 
1405  NEXT  Y 
1410  GOTO  1440 
1415  LORG  2 

1420  FOR  Y=Y1  TO  Y2  STEP  S2 

1425  MOVE  X2+C8/10G*S2*I2,Y 

1430  LABEL  Y 

1435  NEXT  Y 

1440  CSIZE  C7,A2.ST 

1445  IF  Q5*="A"  THEN  GOTO  1465 

1450  LDRG  6 

1455  MOVE  X1+S1*I 1/2, Y1-C3/33*S2*I2 

1460  GO~C  1475 

1465  LORG  4 

1470  MOVE  Xl+Sl*Il/2. Y2+CS/33*S2* I  2 

1475  LABEL  X* 

1480  IF  Q6*="R"  THEN  GOTC  1505 

1485  LORG  6 

1490  LDIP  90 

1495  MOVE  Xl-S1*I1*L2*25.3/Fl , Yl+S2*I2/2 

1500  GOTO  1520 

1505  LORG  4 

1510  LDIR  90 

1515  MOVE  X2+S1*I1*R*25.  3/F'l  .  VI  +52*12/2 

1520  LABEL  YS 

1525  CSIZE  C6.A3.Sfa 

1530  LDIR  O 

1535  IF  Q7S-"B"  THEN  GCTC  1555 

1540  LGFG  6 

1545  MOVE  Xl*Sl*Il/2. Y2+32*I2*T2*25. 3. F2 

1550  G0~0  1565 

1555  LORG  4 

1560  MOVE  X2=S1  *I  1/2,  r '  1-S2* I 2*B*25.  3/P2 

1565  LABEl.  T* 

1570  RETURN 

1575  !   I'M  :DATA  PLOTTING! ' ' ! ! ! ' 

1530  CLEAR 

1585  DISF  "*********PLOTTING  DATA**********" 

1590  DISP 

1595  DISF  "       YOU  MAY  ENTER  PLOTTING  DATh  IN  THREE  WAYS:" 

1600  DISF  "       1.   EN~EP  X,Y  PAIFS  INDIVIDUALLY." 

1605  DISF  "      2.   CREATE  ASUSROUTINE  Tu  GENERATE  1    AS  A  f-UNC" 

1610  DISP  "      3.   READ  X,Y  DATA  FROM  A  DA "A  FILE." 

1615  DISF  "  WHICH  WAY  WILL  THE  DATA  EE  ENTERED"    (1,2  OF  3?)" 

1620  INPUT  N9 

1625  CLEAR 

1630  DISP  "INTERCONNECTING  LINETYPE?    (0-8)" 

1635  INFUT  T3 

1640  DISP  "SYMBOL  AT  DATA  POINT?" 

1645  DISP  "   0   NONE" 

1650  DISF  "   1   SQUARE" 

1655  DISP  "   2   TRIANGLE" 

1660  DISP  "   3   DIAMOND" 

1665  INPUT  S4 

16  70  IF  S4=0  THEN  GOTO  1635 

1675  DISF  "SYMBOL  SIZE  -  7.    OF  GRID  HT" 

1680  INPUT  S5 


235 


"GRAFIT"  Program  Listing — continued. 


,  63= 

QN    N9    67'"  1,     it 

1  =  7.. 

D  1  is?     '  NU!"  &E.K 

I  ■-  9  " 

:n.-';_t  n: 

i'T'...- 

: F     T7.=0    THEN 

1 7  J  ~j 

i_  I  tiET  r  P'E     77 

IT;-;, 

fnf,     N-'L     TC    !\* 

i  7  i  5 

1  7  I  0 

I '•,"-;  IT      i 

1725 

D.ir      "Y     CCQRC 

1  7~  '1 

IN=UT     Y 

I73£ 

GGSUc    2.9= 

1  7<i0 

NEXT     N 

174S 

PENUP 

r=jp    ••nr 


list   f:=,et   d: 


;? .        nc  . 
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1 960  FOR  N= 1  TO  N3 
i965  X=J   (N) 
1970  Y=K(N) 

197  1  IF  N:.50*M  THEM  GOTO  1979 
1972  CSIZE  4.  .5,*.' 
197-  LORG  5 

1974  LABEL  "  +  " 

1975  M=M-l  i 

1976  IF  Q1*="Y"  THEN  X=LOG ( > ) /LOG ( 10) 

1977  IF  02$="Y"  THEN  Y=LOG < V) /LOG < 10) 
197E  MOVE  X,N 

1979  GOSUE  2195 

19B0  NEXT  N 

1985  PENUP 

19V0  RETURN 

1995  '   !  !  '  '  !  IWRAPUP  !!!!!!! 

2000  CLEAR 

2005  DISP  "PLOT  ANOTHER  DATA  SET"'   (Y  OR 

2010  INPUT  Q9S 

2015  IF  Q9$="N"  THEN  GOTO  2030 

202<"'  GOSuB  157  5 

2025  GOSUB  1995 

2030  DI3R  "ANOTHER  PLOT'"    <Y  CR  N)  ' 

2075  INPUT  09$ 

2040  DISF  "SAVE  THESE  PLOT  PARAMETERS  hS 

2045  INPUT  PI* 

2050  IP  P1*="N"  THEN  SOTO  2125 

2055  DISP  "WHAT  SHOULD  THE  R'LCT  PARAMETEf 

DESIGNATOR. " 
2060  INPUT  P* 
2065  ON  ERROR  GOTO  2030 
2070  CREATE  PS, 10 
2075  GOTO  2100 
2080  IF  ERFN=t-7  THEN  CLEAR 

20S5  DISP  "FI^E  NAME,  ", P* , "ALREADY  EX  IE' 
2090  OFF  ERROR' 
2095  GOTO  2055 
210'.  ASSIGN*  :  TO  PI 

2102  PRINT*  1  :  H,  V . T  1 , Bl , R 1 , LI . 72 , B2 . R2 
2. I6,CB,A1,SS 

2110  PRINT*  1  ;  DT-*,D4-«.,C7,  A2,S7r  Xf,Q5*,' 
2115  ASSIGN**  1  TO  * 
2120  GOTO  2175 
2125  ON  ERROR  GOTO  2140 
2170i  CREATE  "PLTDAT  :  D700  "  ,  1  0 
2175  GOTO  2155 

2140  IF  ERRN=63  THEN  PUR32  "PLTDAT :  P700 " 
214  1  IP  ERRN#63  THEN  PRINT  "ERRN=  " ; ERPN 
2145  OFF"  ERROR 
2150  GOTO  2130 

2155  ASSIGN*  1  TO  "PLTDAT: D700" 
2160  PRINT*  1  :  H. V, T 1 , B 1 , Rl , LI , T2, B2. R2 
2, 16. C8, Al.SS 
2565  PRINT*  1  :  23* . 045, C7 . A2. S7 , > * , 05* . 

2170  ASSIGN*  1  TO  * 

2175  IF  09*="Y"  THEN  GOTO  110 

2130  CLEAR 

21 65  DISP  "DONE" 

2190  END 

;•]  c5  i   i  i  i  i  ■  pQTN'  PLOT  '!!!!!! 


,  G  *  ,  C  1  *  .  X  1  ,  X 1  . 
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2200  IF  Q1»="Y"  THEN  X=LOG (X) /LOG ( 10) 

2205  IF  Q2*="Y"  THEN  Y=LOG ( Y) /LOG ( 10) 

2210  IF  T3=0  THEN  GOTO  2230 

2215  IF  N=l  THEN  G0T0  2230 

2220  PLOT  X,Y,-1 

2225  GQ^Q  2235 

2230  PLCT  X . Y 

2235  IF  S4=o  THEN  GOTO  2250 

2240  LINETYFE  1 

2245  ON  54  GOS  -b    945.985,1020 

2250  RETUF.N 

6000  D I SF  "CI?' 

6010  INPUT  CI 

6020  d:sf  "C2~" 

6030  INPUT  C2 

6040  DISP  "R3?" 

6050  INPJT  R3 

6060  DISP  "R4^" 

6070  INPUT  P4 

6080  DISP  "R5?" 

6090  INPUT  F:5 

6100  CLEAR 

6110  DISP  "hOw  I'hIo  DATA  PGINTh?" 

6120  INPUT  N3 

6121  M=l 

6130  FOP  N=l  TO  N3 

6140  GOSJP  65' h> 

614  1  IF  N<50*tt  THEN  ECT0  6150 

6142  C51ZE  4. .5,0 

6143  LOPG  5 

6144  LABEL  "-1  ' 

6145  M=M-i  1 

6146  MOVE  X . Y 
6150  GOS'JB  2195 
6160  NEXT  N 

6165  PENUP 

6166  PRINT  '  Cl  =  ■iC:   ,  ,,5F  =  -;  02  .  "RF-'':F:3.  'PF-  "  ; 
6170  D1SF  "SAVE  THIS  DATA  FILE".'  (Y  OF.  h>  " 
6180  INPUT  Z* 

619':.  IF  Z*="N"  THEN  RETURN 

6200  DISP  "NAME  OF  DATA  FILE?" 

6210  INPUT  N* 

6220  ON  ERROR  GOTO  6250 

6230  CREATE  Nt,30 

624U  GOTO  63 10 

6250  CLEAR 

6260  IF  ERRN=63  THEN  GOTO  6290 

6270  DISP  "ERROR  *t  =  " ;  ERRN 

6280  GOTO  637U 

6290  DISF  "FILE  NAMF  ,  MJi;"  ALREADY  EXISTS. 

6300  GOTO  6200 

6310  ASSIGN*  1  TO  N* 

6320  PRINT*  1  ;  N3, C 1 . C2 , Rl , R2 . R3 

6330  FOR  N=l  TO  No 

6340  PRINT*  1  ;  I (N) . J (N ) , (  (N; 

6350  NEXT  N 

6360  ASSIGN*  1  TO  * 

6370  OFF  ERROF 

6330  RETURN 

6500  I (N)=2*Pt* ' 0  (-.602+. 02* (N-l) ) 
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6505  D1=1+(I (N) *C1*R3)  2 

6510  Zi=R3/Dl 

6515  Z2=-I <N) *C1*R3-  2/D1 

6520  D2=l+ ( 1 <N) *C2*R4)  2 

6525  Z3=R4/D2 

6530  Z4=-l (N) *C2*R4  2/02 

6535  Z5=R5+Zl+Z3 

6545  Z6=Z2+Z4 

6550  Z7=SPR  ( Z5'"2+Z6A2) 

6555  ZS=ATU (Z6/Z5) 

6560  J !N) =1 (N) / (2*PI > 

6565  y  (N)=za 

6566  X=J(N> 

6567  Y=t  CN) 

6570  RETURN 

7000  !   ! ! ' ! 'FUNCTIONS  2' 

7315  Y=X'S2 

732m  RETURN 

7325  !   !  !  !  !  !  FUNCTION**  3  '  ' 

8000  !   '  !  '  '  'FUNCTION**  3  ' 

8330  Y=X"3 

5335  RETURN 

9000  '   '  '  '  '  'FUUC7  ION**  4  !  ! 

9345  Y=8*ABS vSIN ( X* ISO) ) 

9350  RETUKN 
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